Attribution
parent
919eadc1a8
commit
c23815fe52
|
@ -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 + ]
|
||||||
|
|
Loading…
Reference in New Issue