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

cleanup: with fry, _ call is @

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

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

@ -24,8 +24,10 @@ IN: rosetta-code.y-combinator
: Y ( quot -- quot ) : Y ( quot -- quot )
'[ [ dup call call ] curry @ ] dup call ; inline '[ [ dup call call ] curry @ ] dup call ; inline
! factorial sequence
: almost-fac ( quot -- quot ) : almost-fac ( quot -- quot )
'[ dup zero? [ drop 1 ] [ dup 1 - _ call * ] if ] ; '[ dup zero? [ drop 1 ] [ dup 1 - @ * ] if ] ;
! fibonacci sequence
: almost-fib ( quot -- quot ) : almost-fib ( quot -- quot )
'[ dup 2 >= [ 1 2 [ - _ call ] bi-curry@ bi + ] when ] ; '[ dup 2 >= [ 1 2 [ - @ ] bi-curry@ bi + ] when ] ;