2 part forth

[1 デフォルトの名無しさん NG NG]

第四世代

[54 デフォルトの名無しさん NG NG]

話題少ないし、おまいら、クイズで楽しみませんか？

第1問

dup ( a -- a a )
swap ( a b -- b a )
drop ( a -- )
>r ( a -- return stack: a )
r> ( return stack: a -- a )

以上5つのワードだけで、

2dup ( a b -- a b a b )

を定義すれ。

[55 デフォルトの名無しさん NG NG]

第2問
同じく

3dup ( a b c -- a b c a b c )

を定義しる。

[56 デフォルトの名無しさん NG NG]

第3問

: foo twice ." Hello" ;

でfooを実行すると

HelloHello

を出力するようなtwiceを定義してみれ。

[57 デフォルトの名無しさん NG NG]

: 2dup >r dup r> dup >r swap r> ;
: 3dup >r 2dup r> dup >r swap >r swap r> r> ;

>>56
immediateを使う? よく思い出せん。

[58 54-56 NG NG]

>>57
2dup、3dup、お見事っす。

>>56はimmediateを使うという解答もアリですが、
immediateを使わないちょっとトリッキーだけど
もっとシンプルな方法があります。

[59 デフォルトの名無しさん NG NG]

人少ないなぁ。

第4問

: AA reverse ." AA" ;

: BB AA ." BB" ;

: CC BB ." CC" ;

でCCを実行すると

CCBBAA

を出力するようなreverseを定義すれ。

‥‥‥実はコレ第3問のヒントだったりする。

[60 デフォルトの名無しさん NG NG]

Forth のお勧め本ってどんなのありますか？


最近RPNに萌えてます。
HPの電卓欲しくなっちゃった。

[61 デフォルトの名無しさん NG NG]

自分は「標準Forth」
http://www.amazon.co.jp/exec/obidos/ASIN/4320022475/ref=sr_aps_b_/249-4245738-4019557#product-details
でForthを学んだんだけど絶版だろうね。
古本屋か図書館で探すしかないと思われ。

英語でも良ければ、
http://home.iae.nl/users/mhx/sf.html
ここのChapter 1から順に読んでいくのがオススメ。

[62 デフォルトの名無しさん NG NG]

懲りずに第5問。

: foo
　　." 1 "
　　resume
　　." 2 "
　　resume
;

: bar
　　['] foo call/cc
　　." 3 "
　　resume
　　." 4 "
　　drop
;

で、barを実行すると、

1 3 2 4

と表示するような、resumeとcall/ccをがんがって定義してみれ。
ちなみに、この2つのワードは以下のスタックコメントに示すような
引数と返り値を持つものとする。

resume ( continuation -- continuation' )
call/cc ( xt -- continuation )

# ワード名とスタックコメントの名前がアレですが、
# 字面に惑わされなければ、仕様を満たすのは簡単なはず。
# 第３問〜第５問は基本的に同じカラクリ、というのがヒント。

[63 デフォルトの名無しさん NG NG]

Mindって分家？単に日本語で書けるForth？

[64 デフォルトの名無しさん NG NG]

MindはいろいろForthにない仕様があったので、
MindはForthから派生した別言語と考えても良いと思う。

[65 ＿|￣|○ NG NG]

ホント、人が居ない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 ;

‥‥リターンスタックをいじるとヘンなことができて面白いよね。
‥‥‥‥‥。
＿|￣|○