Re: [請益] 沒有想像中簡單的小問題
※ 引述《drm343 (一卡那亞)》之銘言：
: 使用 Hack VM 的版本
: 48*0>19+1>32>2<1+3>3<1+4>4<1+5>5<1+6>1200<P<P<p<P14320<P<p<p<p<P165432<p<p<p<p<p<P14320<P<p<p<p<P200<P<P<p
這個題目還真是長青，看了一下最早的信已經是 2009 發出來的了
http://groups.google.com/group/tw.bbs.comp.language/browse_thread/
thread/593d00926e628a0b/8bb1f63f07fd5b2e
( http://tinyurl.com/4xj6w4m )
沒想到這種小練習題有這麼大的吸引力，中間也出現了很多語言的版本，
現在連 hack vm 都出現了，那 forth 也該露個臉啦
一樣是在玩 stack，但我相信 forth code 的可讀性比 hack vm code 的高一些 ;-)
(為了省指令用了 pforth 的 trick，其他 forth 可能跑不起來)
: put . 8 emit ;
: lead - 1- abs ;
: seq 0 ?do dup i + put loop drop ;
: diamond dup 2* 1- 0 ?do
dup i lead dup spaces 2* over r@ rot - seq cr
loop drop ;
3 diamond
執行結果:
3
345
34567
345
3
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.246.50
→
10/08 23:38, , 1F
10/08 23:38, 1F
→
10/08 23:39, , 2F
10/08 23:39, 2F
→
10/09 03:29, , 3F
10/09 03:29, 3F
→
10/09 03:30, , 4F
10/09 03:30, 4F
推
10/11 16:23, , 5F
10/11 16:23, 5F
→
10/11 21:54, , 6F
10/11 21:54, 6F
→
10/11 21:55, , 7F
10/11 21:55, 7F
→
10/11 21:59, , 8F
10/11 21:59, 8F
討論串 (同標題文章)
完整討論串 (本文為第 33 之 34 篇)：