steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

rosetta-code.y-combinator use inline instead of call( x -- x )

db4
Jon Harper 2012-08-04 22:21:55 +02:00 committed by John Benediktsson
parent 53aa8e1458
commit 87aeec7c63
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/rosetta-code/y-combinator/y-combinator.factor
View File

@ -22,7 +22,7 @@ IN: rosetta-code.y-combinator
! functions or lambda expressions. ! functions or lambda expressions.
: Y ( quot -- quot ) : Y ( quot -- quot )
'[ [ dup call call ] curry _ call ] dup call( x -- x ) ; '[ [ dup call call ] curry @ ] dup call ; inline
: almost-fac ( quot -- quot ) : almost-fac ( quot -- quot )
'[ dup zero? [ drop 1 ] [ dup 1 - _ call * ] if ] ; '[ dup zero? [ drop 1 ] [ dup 1 - _ call * ] if ] ;