From c23815fe521e76746ce789b1fbf9c768df8cb13f Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 14 Jul 2008 00:54:30 -0500 Subject: [PATCH] Attribution --- extra/benchmark/beust2/beust2.factor | 2 ++ 1 file changed, 2 insertions(+) diff --git a/extra/benchmark/beust2/beust2.factor b/extra/benchmark/beust2/beust2.factor index 8f794fb1c2..833c1fa77d 100644 --- a/extra/benchmark/beust2/beust2.factor +++ b/extra/benchmark/beust2/beust2.factor @@ -3,6 +3,8 @@ USING: math math.ranges math.parser sequences kernel io locals ; IN: benchmark.beust2 +! http://crazybob.org/BeustSequence.java.html + :: (count-numbers) ( remaining first value used max listener -- ? ) 10 first - [| i | [let* | digit [ i first + ]