Re: [請益] 沒有想像中簡單的小問題

[letoh (我)]

※ 引述《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
→ drm343:看到各種語言實做這題也很有去阿XD
→ drm343:              作      趣
→ letoh:我的 hackvm 寫好了，跑你的程式正確 :p
→ letoh:gforth hvm.fs < diamond.h
推 bigpigbigpig:請參考 #19p2EI1N :)
→ letoh:沒想到 bigpigbigpig 大大會來留言 :)
→ letoh:我是從外面追過來的，大大的版本似乎沒轉出
→ letoh:怪了，連我這篇都沒出去...@_@