作者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