Anonymous user
Y combinator: Difference between revisions
m
no edit summary
imported>HumptydumptyMe (This is another take at Y-combinator in Forth.) |
imported>HumptydumptyMe mNo edit summary |
||
Line 3,001:
=={{header|Forth}}==
<syntaxhighlight lang="forth">
\ Begin of
: self-parameter ( xt -- xt' )
Line 3,016:
10 :noname ( u xt -- u' ) over 2 < if 2drop 1 exit then over 1- swap execute * ; Y execute . 3628800 ok
\ End of
</syntaxhighlight><syntaxhighlight lang="forth">\ Address of an xt.
variable 'xt
|