Change [0,b) usages to iota

diff --git a/basis/compression/inflate/inflate.factor b/basis/compression/inflate/inflate.factor
index d0bc9d61dc7994096141383df05abba2bef12a09..d96946d53dea21ae96bad72e81a6ccbe0da7cfd6 100644 (file)
--- a/basis/compression/inflate/inflate.factor
+++ b/basis/compression/inflate/inflate.factor
@@ -70,7 +70,7 @@ MEMO: static-huffman-tables ( -- obj )
         280 287 [a,b] length [ 8 ] replicate append
     ] append-outputs
     0 31 [a,b] length [ 5 ] replicate 2array
-    [ [ length>> [0,b) ] [ ] bi get-table ] map ;
+    [ [ length>> iota ] [ ] bi get-table ] map ;
 
 CONSTANT: length-table
     {

diff --git a/basis/images/jpeg/jpeg.factor b/basis/images/jpeg/jpeg.factor
index e305c8477a18f63f2f3a80a0202d4a09018a48f7..9a67d43e7d90aa24d575225cb1f2a9a36a6828f0 100644 (file)
--- a/basis/images/jpeg/jpeg.factor
+++ b/basis/images/jpeg/jpeg.factor
@@ -137,7 +137,7 @@ TUPLE: jpeg-color-info
     data>>
     binary
     [
-        read1 [0,b)
+        read1 iota
         [   drop
             read1 jpeg> color-info>> nth clone
             read1 16 /mod [ >>dc-huff-table ] [ >>ac-huff-table ] bi*
@@ -198,7 +198,7 @@ MEMO: yuv>bgr-matrix ( -- m )
     { 8 8 } coord-matrix [ { u v } [ wave ] 2map product ] map^2
     1 u v [ 0 = [ 2 sqrt / ] when ] bi@ 4 / m*n ;
 
-MEMO: dct-matrix ( -- m ) 64 [0,b) [ 8 /mod dct-vect flatten ] map ;
+MEMO: dct-matrix ( -- m ) 64 iota [ 8 /mod dct-vect flatten ] map ;
 
 : mb-dim ( component -- dim )  [ h>> ] [ v>> ] bi 2array ;
 

diff --git a/basis/images/png/png.factor b/basis/images/png/png.factor
index 0817a59e7b20fad84fc764b67c66b03bfadccbcf..d4a9c4ab563a57b37ce0c12242d0b5b3f755ea5e 100644 (file)
--- a/basis/images/png/png.factor
+++ b/basis/images/png/png.factor
@@ -120,7 +120,7 @@ ERROR: unimplemented-color-type image ;
     prev width tail-slice :> b
     curr :> a
     curr width tail-slice :> x
-    x length [0,b)
+    x length iota
     filter {
         { filter-none [ drop ] }
         { filter-sub [ [| n | n x nth n a nth + 256 wrap n x set-nth ] each ] }

diff --git a/basis/images/processing/processing.factor b/basis/images/processing/processing.factor
index 463337e653b82ca3b026e88d37f7888dba29425e..b21eb50c62c8d9890a86c0c3106a6895b275760f 100644 (file)
--- a/basis/images/processing/processing.factor
+++ b/basis/images/processing/processing.factor
@@ -6,7 +6,7 @@ math.ranges math.vectors sequences sequences.deep fry ;
 IN: images.processing\r
 \r
 : coord-matrix ( dim -- m )\r
-    [ [0,b) ] map first2 [ [ 2array ] with map ] curry map ;\r
+    [ iota ] map first2 [ [ 2array ] with map ] curry map ;\r
 \r
 : map^2 ( m quot -- m' ) '[ _ map ] map ; inline\r
 : each^2 ( m quot -- m' ) '[ _ each ] each ; inline\r

diff --git a/basis/math/combinatorics/combinatorics.factor b/basis/math/combinatorics/combinatorics.factor
index 32f9ae1db358fd9b062e649fabee81de79cfa556..7c68aede094572249bf1049292b05b47ceca4a3a 100644 (file)
--- a/basis/math/combinatorics/combinatorics.factor
+++ b/basis/math/combinatorics/combinatorics.factor
@@ -77,7 +77,7 @@ C: <combo> combo
     dup 0 = [
         drop 1 - nip
     ] [
-        [ [0,b) ] 2dip '[ _ nCk _ >=< ] search nip
+        [ iota ] 2dip '[ _ nCk _ >=< ] search nip
     ] if ;
 
 :: next-values ( a b x -- a' b' x' v )
@@ -104,7 +104,7 @@ C: <combo> combo
     [ combination-indices ] keep seq>> nths ;
 
 : combinations-quot ( seq k quot -- seq quot )
-    [ <combo> [ choose [0,b) ] keep ] dip
+    [ <combo> [ choose iota ] keep ] dip
     '[ _ apply-combination @ ] ; inline
 
 PRIVATE>

diff --git a/extra/bloom-filters/bloom-filters.factor b/extra/bloom-filters/bloom-filters.factor
index ad24d74adffb00bd481869b37efaae500870009f..0f14ed1d975720323e0066f92c7ef4106c35390f 100644 (file)
--- a/extra/bloom-filters/bloom-filters.factor
+++ b/extra/bloom-filters/bloom-filters.factor
@@ -4,7 +4,7 @@ USING: accessors arrays bit-arrays fry infix kernel layouts locals math
 math.functions multiline sequences ;
 IN: bloom-filters
 
-FROM: math.ranges => [1,b] [0,b) ;
+FROM: math.ranges => [1,b] ;
 FROM: math.intervals => (a,b) interval-contains? ;
 
 /*
@@ -121,7 +121,7 @@ PRIVATE>
     [infix hash0 + (index * hash1) + ((pow(index, 3) - index) / 6) infix] ;
 
 : enhanced-double-hashes ( hash0 hash1 n -- seq )
-    [0,b)
+    iota
     [ '[ _ _ enhanced-double-hash ] ] dip
     swap map ;
 

diff --git a/extra/project-euler/001/001.factor b/extra/project-euler/001/001.factor
index d59b9103449c5832c57fc9770bc35693764afa3e..5bf44eddc6ef1eb0ff164cec80d34f24d88593dd 100644 (file)
--- a/extra/project-euler/001/001.factor
+++ b/extra/project-euler/001/001.factor
@@ -47,14 +47,14 @@ PRIVATE>
 
 
 : euler001b ( -- answer )
-    1000 [0,b) [ [ 5 mod ] [ 3 mod ] bi [ 0 = ] either? ] filter sum ;
+    1000 iota [ [ 5 mod ] [ 3 mod ] bi [ 0 = ] either? ] filter sum ;
 
 ! [ euler001b ] 100 ave-time
 ! 0 ms ave run time - 0.06 SD (100 trials)
 
 
 : euler001c ( -- answer )
-    1000 [0,b) [ { 3 5 } [ divisor? ] with any? ] filter sum ;
+    1000 iota [ { 3 5 } [ divisor? ] with any? ] filter sum ;
 
 ! [ euler001c ] 100 ave-time
 ! 0 ms ave run time - 0.06 SD (100 trials)

diff --git a/extra/project-euler/027/027.factor b/extra/project-euler/027/027.factor
index f97d8e9e0ddd700dc6b2b339a817d980c0d36908..0c697236aaa63d86dc05e17d46853db172e5c23c 100644 (file)
--- a/extra/project-euler/027/027.factor
+++ b/extra/project-euler/027/027.factor
@@ -46,7 +46,7 @@ IN: project-euler.027
 <PRIVATE
 
 : source-027 ( -- seq )
-    1000 [0,b) [ prime? ] filter [ dup [ neg ] map append ] keep
+    1000 iota [ prime? ] filter [ dup [ neg ] map append ] keep
     cartesian-product [ first2 < ] filter ;
 
 : quadratic ( b a n -- m )

diff --git a/extra/project-euler/030/030.factor b/extra/project-euler/030/030.factor
index 25d78d9465f58b533dcffe60980e7cdd6151b89a..6db9707f7323385378927b03e6e727d1b20ecfc1 100644 (file)
--- a/extra/project-euler/030/030.factor
+++ b/extra/project-euler/030/030.factor
@@ -38,7 +38,7 @@ IN: project-euler.030
 PRIVATE>
 
 : euler030 ( -- answer )
-    325537 [0,b) [ dup sum-fifth-powers = ] filter sum 1 - ;
+    325537 iota [ dup sum-fifth-powers = ] filter sum 1 - ;
 
 ! [ euler030 ] 100 ave-time
 ! 1700 ms ave run time - 64.84 SD (100 trials)

diff --git a/extra/project-euler/055/055.factor b/extra/project-euler/055/055.factor
index 09663d241fea5b13a467e0f72fd304faa96d9e7f..1d8967ff6ce68b3961e3a602e3c4265189f0ce2c 100644 (file)
--- a/extra/project-euler/055/055.factor
+++ b/extra/project-euler/055/055.factor
@@ -61,7 +61,7 @@ IN: project-euler.055
 PRIVATE>
 
 : euler055 ( -- answer )
-    10000 [0,b) [ lychrel? ] count ;
+    10000 iota [ lychrel? ] count ;
 
 ! [ euler055 ] 100 ave-time
 ! 478 ms ave run time - 30.63 SD (100 trials)

diff --git a/extra/project-euler/057/057.factor b/extra/project-euler/057/057.factor
index 97789944fe9b74ced76c1bfa7c19f53110f55273..4e35c9da58b2358bad80ef72099adae145857489 100644 (file)
--- a/extra/project-euler/057/057.factor
+++ b/extra/project-euler/057/057.factor
@@ -36,7 +36,7 @@ IN: project-euler.057
     >fraction [ number>string length ] bi@ > ; inline
 
 : euler057 ( -- answer )
-    0 1000 [0,b) [ drop 2 + recip dup 1 + longer-numerator? ] count nip ;
+    0 1000 iota [ drop 2 + recip dup 1 + longer-numerator? ] count nip ;
 
 ! [ euler057 ] 100 ave-time
 ! 1728 ms ave run time - 80.81 SD (100 trials)

diff --git a/extra/project-euler/081/081.factor b/extra/project-euler/081/081.factor
index 35bc1f10678f184237c0f9e14dfff56a2e27b1db..cc5e93d7a86412702e52cf175c1151c1b3162273 100644 (file)
--- a/extra/project-euler/081/081.factor
+++ b/extra/project-euler/081/081.factor
@@ -60,7 +60,7 @@ IN: project-euler.081
     3dup minimal-path-sum-to '[ _ + ] change-matrix ;
 
 : (euler081) ( matrix -- n )
-    dup first length [0,b) dup cartesian-product
+    dup first length iota dup cartesian-product
     [ first2 pick update-minimal-path-sum ] each
     last last ;