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

Attribution

db4
Slava Pestov 2008-07-14 00:54:30 -05:00
parent 919eadc1a8
commit c23815fe52
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/benchmark/beust2/beust2.factor
View File

@ -3,6 +3,8 @@
USING: math math.ranges math.parser sequences kernel io locals ; USING: math math.ranges math.parser sequences kernel io locals ;
IN: benchmark.beust2 IN: benchmark.beust2
! http://crazybob.org/BeustSequence.java.html
:: (count-numbers) ( remaining first value used max listener -- ? ) :: (count-numbers) ( remaining first value used max listener -- ? )
10 first - [| i | 10 first - [| i |
[let* | digit [ i first + ] [let* | digit [ i first + ]