探検
2 part forth
1デフォルトの名無しさん
NGNG 第四世代
191デフォルトの名無しさん
2005/04/08(金) 22:07:02 forthには呆れた
192デフォルトの名無しさん
2005/04/08(金) 22:22:18 認知症ですか
193デフォルトの名無しさん
2005/04/11(月) 01:13:26194デフォルトの名無しさん
2005/04/22(金) 21:22:42 FORTH使えねえ・・
195デフォルトの名無しさん
2005/04/22(金) 21:23:16 FORTHでまともなアプリ作ってみろよ
あんのか?
あんのか?
196デフォルトの名無しさん
2005/04/23(土) 11:58:23 君が使ってるマザボのBIOSの半分ぐらいはforthの可能性があるな。
あと、君がPSプリンタ使ってればpostscriptという形でforthが動いているわけで。
組み込み世界ではわりと普通に使われてますが何か?
あと、君がPSプリンタ使ってればpostscriptという形でforthが動いているわけで。
組み込み世界ではわりと普通に使われてますが何か?
197デフォルトの名無しさん
2005/04/23(土) 12:59:24 嘘ばっか
ソース晒してみろよ
PSはFORTHじゃねーし
ソース晒してみろよ
PSはFORTHじゃねーし
198デフォルトの名無しさん
2005/04/23(土) 18:04:23 http://www.answers.com/topic/forth-programming-language
ほい。とりあえずSunがSparcシリーズのBIOSの記述に使ってるらすぃ。
あとASUSが採用してたはずなんだが、すぐに出てこなかった。
あと、PostScriptとforthの関係性な。
http://c2.com/cgi/wiki?ForthPostscriptRelationship
ほい。とりあえずSunがSparcシリーズのBIOSの記述に使ってるらすぃ。
あとASUSが採用してたはずなんだが、すぐに出てこなかった。
あと、PostScriptとforthの関係性な。
http://c2.com/cgi/wiki?ForthPostscriptRelationship
199デフォルトの名無しさん
2005/04/23(土) 18:11:18 ググってやっと見つかったのか
お疲れさん
お疲れさん
200デフォルトの名無しさん
2005/04/23(土) 18:45:38 >ソース晒してみろよ
組み込みソフトなんてのはネジと同じ単なる部品。
どこの世界に「ウチはxxのネジを使ってます」なんて言いふらす自動車屋があるってんだよ。
バカかこいつ(w
組み込みソフトなんてのはネジと同じ単なる部品。
どこの世界に「ウチはxxのネジを使ってます」なんて言いふらす自動車屋があるってんだよ。
バカかこいつ(w
201デフォルトの名無しさん
2005/04/23(土) 18:54:35 その言い訳はマイナー言語全般で使えるね
参考になるよ
参考になるよ
202デフォルトの名無しさん
2005/04/23(土) 18:56:09 で、組み込みとPS以外は無いの?
203デフォルトの名無しさん
2005/04/23(土) 21:17:09 無かったら何?
204デフォルトの名無しさん
2005/04/23(土) 21:37:02 FORTH使えねえ・・
205デフォルトの名無しさん
2005/04/23(土) 21:52:22 お前には使えねえ・・
206デフォルトの名無しさん
2005/04/23(土) 22:23:51 おめえは使えるのか?
だとしたら、何か一発、でかい事しようぜ?!
だとしたら、何か一発、でかい事しようぜ?!
207デフォルトの名無しさん
2005/04/23(土) 22:41:36 Forthって予約語とか命令とかってどれくらいあるの?
簡単なスタック計算機なら作ったことあるんだけど、どれくらい拡張するとForthになるんだろう。
簡単なスタック計算機なら作ったことあるんだけど、どれくらい拡張するとForthになるんだろう。
208デフォルトの名無しさん
2005/04/23(土) 22:44:52 スタック計算機って、おめえ、1 2 + とかだろ?
そんなんじゃプログラミング言語とはいえねえわな。
その形式で制御文とか関数定義考えたこたあるか?
そんなんじゃプログラミング言語とはいえねえわな。
その形式で制御文とか関数定義考えたこたあるか?
209デフォルトの名無しさん
2005/04/23(土) 22:45:20 アプリってなんだ
210デフォルトの名無しさん
2005/04/23(土) 22:48:00211デフォルトの名無しさん
2005/04/23(土) 23:02:44 >208
数字が出たら、素直にスタックに積んで、
トークンが出たら、変数領域を参照して、あったらスタックに積んで、
なかったら、命令領域を参照してあったら、命令にスタックそのものを渡して計算させる。
命令と変数は基本的にstd::mapを使ってコールバックの形などで実現する。
whileとかの解析で思考が詰まってたところだよ。
いっその事、字句解析機もコールバックに渡してしまおうとおもってた。
字句解析には、BOOST::tokenizerを使う。
スタックに積む形式はBOOST::anyあたりがいいかなーと、バリアント変数好きの自分は考えていた。
辞書作成(実質サブルーチン)はちょっとてまかかりそうだけど、evalっぽいの実装すればいけそうだとか考えてた。
とかとか、漠然と考えたことはあるんだけど、実行効率は落第点だろうね。
数字が出たら、素直にスタックに積んで、
トークンが出たら、変数領域を参照して、あったらスタックに積んで、
なかったら、命令領域を参照してあったら、命令にスタックそのものを渡して計算させる。
命令と変数は基本的にstd::mapを使ってコールバックの形などで実現する。
whileとかの解析で思考が詰まってたところだよ。
いっその事、字句解析機もコールバックに渡してしまおうとおもってた。
字句解析には、BOOST::tokenizerを使う。
スタックに積む形式はBOOST::anyあたりがいいかなーと、バリアント変数好きの自分は考えていた。
辞書作成(実質サブルーチン)はちょっとてまかかりそうだけど、evalっぽいの実装すればいけそうだとか考えてた。
とかとか、漠然と考えたことはあるんだけど、実行効率は落第点だろうね。
212211
2005/04/23(土) 23:07:40 素材はもちろんC++
アプリにくっつけて、Forthスクリプトもいいかなーとか妄想してる。
アプリにくっつけて、Forthスクリプトもいいかなーとか妄想してる。
213デフォルトの名無しさん
2005/04/23(土) 23:30:54 そして誰もいなくなった。
214デフォルトの名無しさん
2005/04/23(土) 23:40:47 FORTH使えねえ・・
215デフォルトの名無しさん
2005/04/23(土) 23:55:35 がんばれ
216デフォルトの名無しさん
2005/04/24(日) 00:04:53 なんでもちろんC++なのかねえ。
普通アセだろ?こんなの
普通アセだろ?こんなの
217デフォルトの名無しさん
2005/04/24(日) 00:45:22 土日らしいな
218デフォルトの名無しさん
2005/04/24(日) 08:22:03 >>211
FORTHへの招待 ,Harry Katzan,Jr.
池野信一監訳 近代科学社 1600円 ISBN4-7649-0082-3 C3050
読んでみればFORTHの実装がどれだけお手軽か分かる。
絶版なんでOPACで持ってる図書館を探してくれ。
FORTHへの招待 ,Harry Katzan,Jr.
池野信一監訳 近代科学社 1600円 ISBN4-7649-0082-3 C3050
読んでみればFORTHの実装がどれだけお手軽か分かる。
絶版なんでOPACで持ってる図書館を探してくれ。
219211
2005/04/24(日) 15:41:48220211
2005/04/24(日) 16:48:33 地元の図書館の検索ページ行ってみたが、ないな。
僕の手が届く(自作できそうな)処理系ってbarinf*ckとforth位なんだよなー。
構文解析作るの面倒だし、うーん。
僕の手が届く(自作できそうな)処理系ってbarinf*ckとforth位なんだよなー。
構文解析作るの面倒だし、うーん。
221デフォルトの名無しさん
2005/04/24(日) 17:02:19 >>220
県内の図書館は大抵連携していて他館のも借り出せるから、
他の図書館も探すべし。
(県内図書館の横断検索システムが大抵ある。)
最悪でも国会図書館から地元の図書館へ借り出せる。
(ただし館内閲覧のみ)
県内の図書館は大抵連携していて他館のも借り出せるから、
他の図書館も探すべし。
(県内図書館の横断検索システムが大抵ある。)
最悪でも国会図書館から地元の図書館へ借り出せる。
(ただし館内閲覧のみ)
222デフォルトの名無しさん
2005/04/24(日) 19:52:47 >>221
詳しいんだね。
それで、県の横断検索でもみつかったけど大学の図書だ。
こういうのも横断して借りれるのかな。ちょっと躊躇してるけど、試してみようかな。
Thx!
#しかし便利だな。この検索方法。
詳しいんだね。
それで、県の横断検索でもみつかったけど大学の図書だ。
こういうのも横断して借りれるのかな。ちょっと躊躇してるけど、試してみようかな。
Thx!
#しかし便利だな。この検索方法。
223デフォルトの名無しさん
2005/04/24(日) 21:05:06 Forthなんか自作しても誰も褒めてくれないよ
Lispにしとけば?
Lispにしとけば?
224デフォルトの名無しさん
2005/04/25(月) 18:34:25 別に人に褒めてもらうために処理系作るわけじゃないし。
225デフォルトの名無しさん
2005/04/25(月) 21:02:47 Forthなんか自作しても誰も使わないよ
Lispにしとけば?
Lispにしとけば?
226デフォルトの名無しさん
2005/04/25(月) 21:20:05227211
2005/04/26(火) 20:43:23 ttp://www-lab.ee.uec.ac.jp/text/forth/man/man.html
こういうの発見。
意外とC並みのことができそうな感じ。
でも、スクリプトとしてはあんま必要なさそうなのが結構あるなー。
一つのスタックにdoubleとintを混在させる方法が結構面倒そうだ。
やっぱ、Boost::anyかなぁ・・・。any使っとくとその後の拡張が楽そうだな。(Win方面のハンドルとか。)
うーん。
トンカチを持ってる人はすべての問題が釘に見えるっていうのがあるけど、
なんかそんな感じに陥っていそうな感じだ。
どうしよ。
>>226
オブジェクト指向のforthかな??
マニュアルないから、パラメータの意味がわかりにくいな。(引数とかとか。)
でも、ちゃんとアプリできてるのはすごいと思う。
適当なOS向けの拡張ってどうやってやるんだろう。
Boost::anyにハンドル類を突っ込むしか思い当たらない・・・。
スタック何本いるんだろ。3本かな・・・??
というか、キューとかにしちゃってもいいのか??
こういうの発見。
意外とC並みのことができそうな感じ。
でも、スクリプトとしてはあんま必要なさそうなのが結構あるなー。
一つのスタックにdoubleとintを混在させる方法が結構面倒そうだ。
やっぱ、Boost::anyかなぁ・・・。any使っとくとその後の拡張が楽そうだな。(Win方面のハンドルとか。)
うーん。
トンカチを持ってる人はすべての問題が釘に見えるっていうのがあるけど、
なんかそんな感じに陥っていそうな感じだ。
どうしよ。
>>226
オブジェクト指向のforthかな??
マニュアルないから、パラメータの意味がわかりにくいな。(引数とかとか。)
でも、ちゃんとアプリできてるのはすごいと思う。
適当なOS向けの拡張ってどうやってやるんだろう。
Boost::anyにハンドル類を突っ込むしか思い当たらない・・・。
スタック何本いるんだろ。3本かな・・・??
というか、キューとかにしちゃってもいいのか??
228デフォルトの名無しさん
2005/04/28(木) 19:20:51 ホンダガラッタ
ヘンダガラッタ
フンダガラッタ
フン!フン!
エッグマンが現れた。
ヘンダガラッタ
フンダガラッタ
フン!フン!
エッグマンが現れた。
229デフォルトの名無しさん
2005/04/28(木) 23:40:24 > 一つのスタックにdoubleとintを混在させる方法が結構面倒そうだ。
実数は実数スタックに積むんじゃね?
実数は実数スタックに積むんじゃね?
230デフォルトの名無しさん
2005/04/29(金) 12:19:01 はぁ?ナニ言ってんのおまえ
231デフォルトの名無しさん
2005/04/29(金) 13:09:33232デフォルトの名無しさん
2005/04/29(金) 18:05:54 >>231=229
はぁ?ナニ言ってんのおまえ
はぁ?ナニ言ってんのおまえ
233デフォルトの名無しさん
2005/04/29(金) 20:55:41 このスレはもうだめぽ。
234デフォルトの名無しさん
2005/05/01(日) 01:45:08 >>227
C言語レベルでオゲーなら、↓こんな所からコードを読んでみるのは、いかがでせぅか?
T4th
http://eshop.advanet.co.jp/formmail/t4th.html
GForth
http://www.jwdt.com/~paysan/gforth.html
GikoForth
http://gikoforth.s13.xrea.com/gikoforth.html
T4thは正確にはモドキらしいけど、日曜プログラミング程度で突付ける程度の気楽さですよ。
> 適当なOS向けの拡張ってどうやってやるんだろう。
ぱっと思いつくのは、Win32 APIのLoadLibraryとGetProcAddressを呼び出す
ワード(命令)を用意すれば いいんじゃないかな?と。
>というか、キューとかにしちゃってもいいのか??
STLのstackも確かqueueの特殊系だったので、それで良いと思いますよ。
(上のはCで実装しているけど、まぁ似たような感じだし)
C言語レベルでオゲーなら、↓こんな所からコードを読んでみるのは、いかがでせぅか?
T4th
http://eshop.advanet.co.jp/formmail/t4th.html
GForth
http://www.jwdt.com/~paysan/gforth.html
GikoForth
http://gikoforth.s13.xrea.com/gikoforth.html
T4thは正確にはモドキらしいけど、日曜プログラミング程度で突付ける程度の気楽さですよ。
> 適当なOS向けの拡張ってどうやってやるんだろう。
ぱっと思いつくのは、Win32 APIのLoadLibraryとGetProcAddressを呼び出す
ワード(命令)を用意すれば いいんじゃないかな?と。
>というか、キューとかにしちゃってもいいのか??
STLのstackも確かqueueの特殊系だったので、それで良いと思いますよ。
(上のはCで実装しているけど、まぁ似たような感じだし)
235227
2005/05/01(日) 04:00:31 先日brainf*ckを自作してみたら、大体C++のクラスで150行位になった。
僕が保守できる限界がこれ位なだよなー。結構ヘタレ。
>>234
thx!
あまり長いソースはよんだことないからなー。
1000行はちょっと長いね。まーいいか。
地道によんでみます。
>ぱっと思いつくのは、Win32 APIのLoadLibraryとGetProcAddressを呼び出す
>ワード(命令)を用意すれば いいんじゃないかな?と。
うまいまわし方はわからんけど、簡単そうですね。
>というか、キューとかにしちゃってもいいのか??
どうしてこんなこといっちゃったんだろう。
意図忘れちゃった。(汗
僕が保守できる限界がこれ位なだよなー。結構ヘタレ。
>>234
thx!
あまり長いソースはよんだことないからなー。
1000行はちょっと長いね。まーいいか。
地道によんでみます。
>ぱっと思いつくのは、Win32 APIのLoadLibraryとGetProcAddressを呼び出す
>ワード(命令)を用意すれば いいんじゃないかな?と。
うまいまわし方はわからんけど、簡単そうですね。
>というか、キューとかにしちゃってもいいのか??
どうしてこんなこといっちゃったんだろう。
意図忘れちゃった。(汗
236227
2005/05/02(月) 21:43:03 http://www.uploda.org/file/uporg88200.lzh
スタック電卓作ってみました。
形にはなってない感じですが・・・。
とりあえず、ソースはまだカオス化してないはずなので興味があるなら読んでみてください。
変数等は使えません。辞書も無理。
拡張は、クラスStackCalcのenumのTokennumを必要数増やして、
メソッド、Doの中にあるstd::stringのtoken[]に命令文を追加して、
switch文に新しい数字を増やして、
新しいメソッドを書くだけ。
こんなに簡単。(笑
扱いはMain.cppを見てください。
エラー処理はほぼしてないです。
あー、これをどれだけ拡張すると、forthになるのやら。
制御構文がネックだなー。Boost::tokenizerはバックして解析できないみたいだし・・・。
あと、ファイルは二日ほどで消える予定です。
スタック電卓作ってみました。
形にはなってない感じですが・・・。
とりあえず、ソースはまだカオス化してないはずなので興味があるなら読んでみてください。
変数等は使えません。辞書も無理。
拡張は、クラスStackCalcのenumのTokennumを必要数増やして、
メソッド、Doの中にあるstd::stringのtoken[]に命令文を追加して、
switch文に新しい数字を増やして、
新しいメソッドを書くだけ。
こんなに簡単。(笑
扱いはMain.cppを見てください。
エラー処理はほぼしてないです。
あー、これをどれだけ拡張すると、forthになるのやら。
制御構文がネックだなー。Boost::tokenizerはバックして解析できないみたいだし・・・。
あと、ファイルは二日ほどで消える予定です。
237236
2005/05/02(月) 21:46:48 あ、URLのh抜くの忘れてた。
238デフォルトの名無しさん
2005/05/08(日) 03:21:28 保守上げ
239デフォルトの名無しさん
2005/05/08(日) 03:28:55 保守上げ。リバイバル。
240デフォルトの名無しさん
2005/05/10(火) 22:55:12 Forth さばいばる
241デフォルトの名無しさん
2005/05/11(水) 23:05:01 いや、ぜんぜん生き残ってないし
242デフォルトの名無しさん
2005/05/18(水) 19:40:57 三回転半腰捻り腰痛対策age
243デフォルトの名無しさん
2005/05/24(火) 04:28:13 S-Langはスタックベースの言語なんだね。
でも構文見るとまるでCだ。
でも構文見るとまるでCだ。
244デフォルトの名無しさん
2005/05/28(土) 05:14:52245デフォルトの名無しさん
2005/06/05(日) 03:08:40 あれ? ここってforthスレだよねぇ〜・・・(謎
246デフォルトの名無しさん
2005/06/05(日) 03:24:28 fifth
247デフォルトの名無しさん
2005/06/05(日) 23:58:45 ミットコンッドッリアアアッァァアァァァァァァァァァァァアアアアアァァァァア。
age
age
248デフォルトの名無しさん
2005/06/05(日) 23:59:43 うぉぉおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおぉぉぉぉぉぉりゃぁぁぁぁぁぁぁぁぁぁぁぁあぁぁぁっぁぁぁっぁぁぁぁぁっぁぁぁぁ
age
age
249デフォルトの名無しさん
2005/06/06(月) 04:47:43 ttp://www.retroforth.org/
250デフォルトの名無しさん
2005/06/15(水) 07:23:13 ttp://stackempty.info
251デフォルトの名無しさん
2005/06/21(火) 21:25:18 ↑ブラクラ
と書かれると嫌だろ?
ちゃんと何のリンクかぐらい書けや
と書かれると嫌だろ?
ちゃんと何のリンクかぐらい書けや
252デフォルトの名無しさん
2005/06/22(水) 14:44:53 サーバーが見つかりません
253デフォルトの名無しさん
2005/06/22(水) 21:45:27 と書かれると嫌だろ?
ちゃんと何のリンクかぐらい書けや
ちゃんと何のリンクかぐらい書けや
254デフォルトの名無しさん
2005/07/09(土) 15:05:46 数年前の記事ですが...
I Hate Forth
ttp://embedded.com/story/OEG20010731S0028
I Love Forth
ttp://embedded.com/showArticle.jhtml?articleID=9900308
I Hate Forth
ttp://embedded.com/story/OEG20010731S0028
I Love Forth
ttp://embedded.com/showArticle.jhtml?articleID=9900308
255デフォルトの名無しさん
2005/09/02(金) 18:54:36 ムーアさん、亡くなった?
2005/09/11(日) 20:49:19
そんな話聞いた事無いけどな。
Dr. Moogなら亡くなったが。
Dr. Moogなら亡くなったが。
257デフォルトの名無しさん
2005/11/09(水) 00:49:06 hoth
258デフォルトの名無しさん
2005/11/12(土) 02:24:58 こんだけ過疎な理由はなんだ?
Forthの悪いところでも晒していこうぜ。
ちなみにおれはアセンブラより難解だと思ってる一人だぜ。
Forthの悪いところでも晒していこうぜ。
ちなみにおれはアセンブラより難解だと思ってる一人だぜ。
259デフォルトの名無しさん
2005/11/12(土) 06:28:32 俺はPythonやJavaより読みやすいと思ってる一人だぜ.
260デフォルトの名無しさん
2005/12/07(水) 02:41:39 何か話題ないのか
261デフォルトの名無しさん
2005/12/07(水) 10:20:28 FORTH にある ROT って
つまり age のことだよね?
最近やっと気付いたよ w
つまり age のことだよね?
最近やっと気付いたよ w
262デフォルトの名無しさん
2005/12/07(水) 22:57:42 : age ROT ;
263デフォルトの名無しさん
2005/12/07(水) 23:57:33 sage は SWAP でいいのかな?
: sage SWAP ;
: sage SWAP ;
264デフォルトの名無しさん
2005/12/08(木) 02:35:14 やっぱり
: foo bar ;
より
/foo { bar } def
の方がわかりやすいなあ
: を imdsw_on ; を imdsw_offとかにすれば
ちょっとはわかるような
わからんか
: foo bar ;
より
/foo { bar } def
の方がわかりやすいなあ
: を imdsw_on ; を imdsw_offとかにすれば
ちょっとはわかるような
わからんか
265デフォルトの名無しさん
2005/12/10(土) 01:54:03 FORTHは全部が後置記法に統一されてないのがちぐはぐで嫌
266デフォルトの名無しさん
2005/12/16(金) 14:42:09 age
267デフォルトの名無しさん
2005/12/16(金) 19:51:11268デフォルトの名無しさん
2005/12/16(金) 20:26:43269デフォルトの名無しさん
2005/12/16(金) 22:34:35 前から後ろから
270デフォルトの名無しさん
2005/12/17(土) 08:06:49 でも入口と出口は一緒
pushしてpop
「おめでとうございます。元気な男の子ですよ」
pushしてpop
「おめでとうございます。元気な男の子ですよ」
271デフォルトの名無しさん
2005/12/17(土) 10:33:36 interlog
272デフォルトの名無しさん
2005/12/17(土) 12:43:43 そこで、swapしちゃいます
273デフォルトの名無しさん
2005/12/17(土) 13:46:53 HTROFに改名しますた
274デフォルトの名無しさん
2006/01/07(土) 18:05:41 自然数 N が与えられたとき、
1 から N までの数字を N 個並べる組み合わせをすべて
列挙するプログラムは Forth で書くとどうなりますか?
例えば N = 3 のとき
1 2 3
1 3 2
2 1 3
2 3 1
3 1 2
3 2 1
となるようにです。
よろしくおながいします。
1 から N までの数字を N 個並べる組み合わせをすべて
列挙するプログラムは Forth で書くとどうなりますか?
例えば N = 3 のとき
1 2 3
1 3 2
2 1 3
2 3 1
3 1 2
3 2 1
となるようにです。
よろしくおながいします。
275デフォルトの名無しさん
2006/02/12(日) 23:31:47 ゅしほ
276デフォルトの名無しさん
2006/03/05(日) 10:04:15277デフォルトの名無しさん
2006/03/05(日) 16:17:17 訳注に書いてあるとおり。
プログラムの可読性を損ねるからだと思われ。
プログラムの可読性を損ねるからだと思われ。
2006/03/18(土) 22:15:13
TextSS のWindowsXP(Professional)64bit対応化おながいします
もしくは64bitにネイティブ対応したテキスト置換ソフトありますか?
そういや64bitにネイティブ対応している2chブラウザてありましたっけ?
もしくは64bitにネイティブ対応したテキスト置換ソフトありますか?
そういや64bitにネイティブ対応している2chブラウザてありましたっけ?
279デフォルトの名無しさん
2006/03/30(木) 18:03:27280デフォルトの名無しさん
2006/03/30(木) 18:17:19 オライリーの表紙に龍はないだろ
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とかやってみて。
こんな感じか? たぶんもっと美しいやり方があるのだろうが、ヘタレの
俺にはこの程度しかわからん。
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とかやってみて。
282デフォルトの名無しさん
2006/05/18(木) 11:40:06 Thinking FORTH を CCL で日本語化するプロジェクトが進行中。
本日作業分担を大まかに決める予定。
日本FORTH研究会の会報をPDF・オープン化することも本日の議題。
LL Ring! Language Update に出るか否かも本日決定?
第3世代 FIG JAPAN 立ち上げたいなぁ。
本日作業分担を大まかに決める予定。
日本FORTH研究会の会報をPDF・オープン化することも本日の議題。
LL Ring! Language Update に出るか否かも本日決定?
第3世代 FIG JAPAN 立ち上げたいなぁ。
284デフォルトの名無しさん
2006/05/18(木) 16:13:05 >>282 期待age
285デフォルトの名無しさん
2006/05/18(木) 16:13:50 sageいれちまった... orz
286デフォルトの名無しさん
2006/05/18(木) 16:19:51 というか日本支部生きてたのか(w
287デフォルトの名無しさん
2006/06/01(木) 02:25:15288デフォルトの名無しさん
2006/08/09(水) 18:37:34 LL Ringに参戦するようだが、勝算はどれくらいだろう?
290デフォルトの名無しさん
2006/08/30(水) 06:22:31 つ win32forth
291デフォルトの名無しさん
2006/08/30(水) 08:50:36 LLRing乙でした。
レスを投稿する
ニュース
- 日本の立場説明へ…外務省局長が北京到着 “台湾有事”首相答弁に中国反発 ★3 [煮卵★]
- 国内ホテル、既にキャンセルも 訪日客関連業界、事態見守る ★2 [蚤の市★]
- NHK、受信料の未払い世帯に督促強化へ 民事手続きの新組織を設置 差し押さえなどの強制執行も [1ゲットロボ★]
- 【日本大使館】中国在留邦人は安全確保を [ぐれ★]
- 【外交】日中関係悪化、長期化の様相 2012年には自動車輸出80%減も ロイター★2 [1ゲットロボ★]
- 【野球】井端監督 大谷翔平、山本由伸らのWBCへの参加 「1日も早く返事ほしい」「待っててといっても、国内組が遅くなってしまう」★3 [冬月記者★]
- 【悲報】女性初の総理大臣 高市早苗氏、安倍晋三さんが積み上げてきたものを一瞬でぶっ壊してしまう😱wwwwwwwwwwwwwwwwwwwwww [871926377]
- トランプ聖帝「中国を倒すのではなく協力することでアメリカは強くなる!MAGA!」 高市どうすんのこれ… [878970802]
- 愛国者ナザレンコ「左翼は自己中な差別主義者で偽善者。日本人ファーストを叩いておいて台湾人が死んでも知らな〜いでしょ。中露の犬」 [856698234]
- 【高市悲報】お米券、予算効率が極悪!額面440円を500円で取得。1割以上手数料。これに事務費かけたらムダばかり。マイナ口座で良いだろ [219241683]
- 【悲報】有名ウヨ論客、「現実的に考えて中国と仲直りするしかなくね?」と言ったら野良ウヨから総叩きにあう [856698234]
- 【高市悲報】経団連会長、高市と面談「おい!ちゃんと中国と対話しろよ!😨」 [359965264]
