2 part forth (907ﾚｽ)
2 part forth http://mevius.5ch.net/test/read.cgi/tech/1073673931/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
56: デフォルトの名無しさん [sage] 04/02/18 12:27 第3問 : foo twice ." Hello" ; でfooを実行すると HelloHello を出力するようなtwiceを定義してみれ。 http://mevius.5ch.net/test/read.cgi/tech/1073673931/56
57: デフォルトの名無しさん [sage] 04/02/18 17:59 : 2dup >r dup r> dup >r swap r> ; : 3dup >r 2dup r> dup >r swap >r swap r> r> ; >>56 immediateを使う? よく思い出せん。 http://mevius.5ch.net/test/read.cgi/tech/1073673931/57
58: 54-56 [sage] 04/02/18 19:06 >>57 2dup、3dup、お見事っす。 >>56はimmediateを使うという解答もアリですが、 immediateを使わないちょっとトリッキーだけど もっとシンプルな方法があります。 http://mevius.5ch.net/test/read.cgi/tech/1073673931/58
65: ＿|￣|○ [sage] 04/02/23 20:44 ホント、人が居ないyo.....＿|￣|○ 誰も見てないかもしれないけど解答編。 >>56 : twice r> dup >r >r ; >>59 : reverse r> r> swap r> swap >r swap >r >r ; >>62 : resume r> swap >r ; : call/cc r> swap execute ; ‥‥リターンスタックをいじるとヘンなことができて面白いよね。 ‥‥‥‥‥。 ＿|￣|○ http://mevius.5ch.net/test/read.cgi/tech/1073673931/65
66: デフォルトの名無しさん [sage] 04/02/24 14:02 >>65 スマン、しばらく見てなかった。 >>56はwordの最後までを二回ってことだったか。 次のwordだけを、かと勘違いしてた。 って>>62はそう書いてるな。 http://mevius.5ch.net/test/read.cgi/tech/1073673931/66
491: デフォルトの名無しさん [sage] 2008/10/09(木) 21:16:04 ついでに >>56 のリターンスタックを使ったパズルの説明でも書いておこう。 問題は、 : foo twice ." Hello" ; で、 HelloHello を出力する twice を定義しろというパズル。 http://mevius.5ch.net/test/read.cgi/tech/1073673931/491
762: デフォルトの名無しさん [sage] 2015/08/15(土) 15:24:43.03 ID:fkPcgHEe 処理系作ってようやく何やってるのかわかったけど、>>56とか>>62面白いなあ http://mevius.5ch.net/test/read.cgi/tech/1073673931/762
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.022s