2023-10-23 20:23:23 +02:00
|
|
|
~~~
|
2024-09-09 20:07:02 +02:00
|
|
|
:double:var (:nns-)
|
2023-10-23 20:23:23 +02:00
|
|
|
d:create swap , , ;
|
|
|
|
|
|
2024-09-09 20:07:02 +02:00
|
|
|
:double:fetch (:a-nn)
|
2023-10-23 20:23:23 +02:00
|
|
|
fetch-next swap fetch ;
|
|
|
|
|
|
2024-09-09 20:07:02 +02:00
|
|
|
:double:store (:nna-)
|
2023-10-23 20:23:23 +02:00
|
|
|
&swap dip store-next store ;
|
|
|
|
|
|
2024-09-09 20:07:02 +02:00
|
|
|
:double:const (:nns-)
|
2023-10-23 20:23:23 +02:00
|
|
|
double:var &double:fetch does ;
|
|
|
|
|
|
2024-09-09 20:07:02 +02:00
|
|
|
:double:swap (:nnmm-mmnn)
|
2023-10-23 20:23:23 +02:00
|
|
|
rot push rot pop ;
|
|
|
|
|
|
2024-09-09 20:07:02 +02:00
|
|
|
:double:dip (:mnq-mn) rot rot push push call pop pop ;
|
|
|
|
|
:double:sip (:mnq-mn) &dup-pair dip double:dip ;
|
2023-10-23 20:23:23 +02:00
|
|
|
~~~
|
