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

iota: Fix second iota -> <iota> in line several times.

char-rename
Doug Coleman 2017-06-02 15:38:05 -05:00
parent e189954ecc
commit 195630f637
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/math/combinatorics/combinatorics.factor
View File

@ -216,7 +216,7 @@ INSTANCE: combinations immutable-sequence
:: combinations-quot ( seq k quot -- seq quot' ) :: combinations-quot ( seq k quot -- seq quot' )
seq length :> n seq length :> n
n k nCk <iota> k iota >array seq quot n n k nCk <iota> k <iota> >array seq quot n
'[ drop _ [ _ nths-unsafe @ ] keep _ next-combination drop ] ; inline '[ drop _ [ _ nths-unsafe @ ] keep _ next-combination drop ] ; inline
PRIVATE> PRIVATE>

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

@ -24,7 +24,7 @@ IN: benchmark.mandel
[ color-map [ length mod ] keep nth ] [ B{ 0 0 0 } ] if* ; inline [ color-map [ length mod ] keep nth ] [ B{ 0 0 0 } ] if* ; inline
: render ( -- ) : render ( -- )
height <iota> [ width iota swap '[ _ c pixel color write ] each ] each ; inline height <iota> [ width <iota> swap '[ _ c pixel color write ] each ] each ; inline
: ppm-header ( -- ) : ppm-header ( -- )
ascii encode-output ascii encode-output

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

@ -148,7 +148,7 @@ DEFER: create
[ oversampling /f ] bi@ 0.0 double-array{ } 3sequence ; [ oversampling /f ] bi@ 0.0 double-array{ } 3sequence ;
: ss-grid ( -- ss-grid ) : ss-grid ( -- ss-grid )
oversampling <iota> [ oversampling iota [ ss-point ] with map ] map ; oversampling <iota> [ oversampling <iota> [ ss-point ] with map ] map ;
: ray-grid ( point ss-grid -- ray-grid ) : ray-grid ( point ss-grid -- ray-grid )
[ [

2
extra/noise/noise.factor
View File

@ -120,7 +120,7 @@ TYPED:: perlin-noise ( table: byte-array point: float-4 -- value: float )
faded trilerp ; faded trilerp ;
MEMO: perlin-noise-map-coords ( dim -- coords ) MEMO: perlin-noise-map-coords ( dim -- coords )
first2 <iota> [| x y | x iota [ y 0.0 0.0 float-4-boa ] float-4-array{ } map-as ] with map concat ; first2 <iota> [| x y | x <iota> [ y 0.0 0.0 float-4-boa ] float-4-array{ } map-as ] with map concat ;
TYPED:: perlin-noise-map ( table: byte-array transform: matrix4 coords: float-4-array -- map: float-array ) TYPED:: perlin-noise-map ( table: byte-array transform: matrix4 coords: float-4-array -- map: float-array )
coords [| coord | table transform coord m4.v perlin-noise ] data-map( float-4 -- c:float ) coords [| coord | table transform coord m4.v perlin-noise ] data-map( float-4 -- c:float )