2 part forth (907ﾚｽ)

2 part forth http://mevius.5ch.net/test/read.cgi/tech/1073673931/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

281: デフォルトの名無しさん [] 2006/05/02(火) 18:58:48 >>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 else >r r@ 0 do J 1 - fn J 1 - roll cr loop r> drop then ; : show.all dup x ! dup 0 = if ." Error" drop else dup 1 = if .s else cr make.stack dup fn drop then x @ clean.stack then ; 3 show.allとかやってみて。 http://mevius.5ch.net/test/read.cgi/tech/1073673931/281

283: 274 [sage] 2006/05/18(木) 12:01:42 >>281 激しくありがとうございます http://mevius.5ch.net/test/read.cgi/tech/1073673931/283

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.039s