forth - Forth でスタックから n 番目の要素を取得する

Question

その上のすべての要素をポップせずに、Forth のインデックスでスタックの要素にアクセスする方法はありますか?

たとえば、1 から 1000 までの数字をスタックにプッシュした場合、どうすれば 500 番目の要素を取得できますか?

Answer 1

使用している Forth に PICK がない場合は、次のように定義できます。

: PICK   ?DUP IF SWAP >R 1- RECURSE R> SWAP EXIT THEN DUP ;

(もちろん、反復バージョンも可能です。)