作者bigpigbigpig (To littlepig with love)
站內Programming
標題Re: [請益] 沒有想像中簡單的小問題
時間Fri Mar 27 08:53:37 2009
※ 引述《yauhh (喲)》之銘言：
: ※ 引述《wupojung (常駐程式)》之銘言：
: : 來亂+1 win32 組合code
: : 3
: : 345
: : 34567
: : 345
: : 3
: : mov ah,2
: ...
: : → wupojung:好像缺少QB 版本= = 211.74.191.193 03/26 06:06
: : 推 yauhh:QB,拜託不要吧 59.112.225.27 03/26 10:06
: : → MOONRAKER:提QB幹嘛 那GWBASIC要不要啊 ￣σ￣ 61.217.61.51 03/27 00:59
: 5 REM BASICA AND GW-BASIC ONLY
: 10 CLS
: 20 FOR I=1 TO 5
: 30 FOR J = 1 TO ABS(3-i)
: 40 PRINT " ";
: 50 NEXT J
: 60 FOR J = 3 TO 3+(2-ABS(3-i))*2
: 70 PRINT CHR$(48+j);
: 80 NEXT J
: 85 PRINT
: 90 NEXT I
來個 FORTH 版本吧！
: adjust-range ( a -- a+1 -a ) dup 1+ swap negate ;
: print-line
abs swap over - swap
spaces
adjust-range
?do dup [char] 0 + emit 1+ loop drop
;
: diamond ( start lines )
dup adjust-range
?do
over over i
print-line cr
loop
cr
drop drop
;
執行結果：
cr 3 2 diamond
3
345
34567
345
3
ok
cr 3 3 diamond
3
345
34567
3456789
34567
345
3
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.96.170.97