2 part forth (909ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
281(1): 2006/05/02(火)18:58 AAS
>>274
こんな感じか？ たぶんもっと美しいやり方があるのだろうが、ヘタレの
俺にはこの程度しかわからん。
variable x
0 x !
: make.stack 1+ 1 do i loop ;
: clean.stack x @ 0 do drop loop ;
: fn recursive
dup 2 = if
drop .s swap .s swap
省16
283: 274 2006/05/18(木)12:01 AAS
>>281
激しくありがとうございます
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.720s*