2 part forth (907ﾚｽ)
上下前次1-新

---

281(1): 2006/05/02(火)18:58 AA×
>>274


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
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
こんな感じか？ たぶんもっと美しいやり方があるのだろうがヘタレの 俺にはこの程度しかわからん とかやってみて

---

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

---

あと 626 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.016s