forth

4熱

1答えて

Quicksortを使用して、整数をスタック上のエントリで表されるセット内の要素にソートします。既にソートされている大きな（約10,000要素）セットをソートする必要がある場合を除いて、問題なく動作します。 : adswap \ ad1 ad2 -- over @ over @ swap rot ! swap ! ; : singlepart \ ad1 ad2 -- ad

3熱

2答えて

配列内の8番目の名前空間をどのように指定しますか？

第8回は、ボキャブラリの代わりに名前空間を使用します。各名前空間にはそれぞれ独自の整数表現があります。 ok> ns:a . cr ns:n . cr 4 2 したがって、2は数値名前空間用、4は配列用です。私はTOS（top of stack）に配置できる名前空間を保持する配列を作成したいと考えています。しかし、私はちょうどこの ok> [ ns:a , ns:n ] Except

2熱

1答えて

は、ピンが、私はピン変化でトリガしたい単語を持っている

を変更したときFlashForthワードを実行します。データシートの第65頁の3およびthis diagram I use。 ' example 3 int! ei ピン（この場合はピン3）の値を変更しようとすると、何も起こりません。何か間違っていますか？

0熱

1答えて

SwiftForth SWOOPの無料実装はありますか？

ここにはhttps://www.forth.com/product/swiftforth/があります。オブジェクト指向のバージョンが用意されています。 SWOOPをサポートする無料の実装はありますか？私は必要であればソースから構築することを恐れない。

3熱

1答えて

、再帰

とホフスタッターQシーケンスIは、再帰的な定義を使用してHofstadter's Q Sequenceを実装しようとしています： Q(1) = 1 Q(2) = 1 Q(n) = Q(n - Q(n-2)) + Q(n - Q(n-1)) for n > 2 私はn > 3の間違った結果を取得します。ここで私がこれまで持っているものです。 : Q recursive dup 3

5熱

1答えて

jonesforthセグメンテーションフォールト

システム： /tmp/jonesforth $ cat /etc/issue Ubuntu 16.04.1 LTS \n \l これは、32ビットシステムです。 annexiaリポジトリからクローン： git clone git://git.annexia.org/git/jonesforth.git ビルドはOK行く： cd jonesforth /tmp/jonesforth

4熱

3答えて

複数の出口点を持つポータブルの不定ループ

複数の出口点を持つ理想的なループを実装する必要があります。残念ながら、複数のWHILEを持つREPEAT-UNTILは、Gforthでもswapforthでも動作しません（もちろん、以下の例のループはDO-LOOPで実装できますが、そのコードは単なるデモンストレーションです。ループが実際に無期限でなければならないので、本当の問題は、組み込みシステムにおけるハードウェアの制御に関連している）：引用