From 35b684eeea13015f6dcbc7984160c6441dbc94c2 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 1 Aug 2009 18:56:35 -0500 Subject: [PATCH] benchmark.beust2: use iota instead of integer sequences --- extra/benchmark/beust2/beust2.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/benchmark/beust2/beust2.factor b/extra/benchmark/beust2/beust2.factor index d269ef3503..6b3fd41575 100755 --- a/extra/benchmark/beust2/beust2.factor +++ b/extra/benchmark/beust2/beust2.factor @@ -6,7 +6,7 @@ IN: benchmark.beust2 ! http://crazybob.org/BeustSequence.java.html :: (count-numbers) ( remaining first value used max listener: ( -- ) -- ? ) - 10 first - [| i | + 10 first - iota [| i | [let* | digit [ i first + ] mask [ digit 2^ ] value' [ i value + ] | @@ -29,7 +29,7 @@ IN: benchmark.beust2 ] any? ; inline recursive :: count-numbers ( max listener -- ) - 10 [ 1+ 1 1 0 max listener (count-numbers) ] any? drop ; + 10 iota [ 1+ 1 1 0 max listener (count-numbers) ] any? drop ; inline :: beust ( -- )