747(1): デフォルトの名無しさん [sage] 2015/07/17(金) 08:59:20.64 ID:Hk7N5du5(1) AAS
全てをアセンブリで実装しようとしたら手がつけられなくなったので
とりあえずコア以外はｃで実装すことに変更すた
しっかし本当おもしれえ
nextは僅か4命令だぞ

56(6): デフォルトの名無しさん [sage] 04/02/18 12:27 AAS
第3問

: foo twice ." Hello" ;

でfooを実行すると

HelloHello

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

62(4): デフォルトの名無しさん [] 04/02/20 12:42 AAS
懲りずに第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 )

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