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

sequences.interleaved: use 2/ (shift) instead of 2 / (divide).

windows-high-dpi
John Benediktsson 2018-02-16 07:06:50 -08:00
parent 192cf2a352
commit fc40ab3fb8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/sequences/interleaved/interleaved.factor
View File

@ -14,7 +14,7 @@ M: interleaved length seq>> length dup 1 - + 0 max ;
M: interleaved nth-unsafe M: interleaved nth-unsafe
over even? [ over even? [
[ 2 / ] [ seq>> ] bi* nth-unsafe [ 2/ ] [ seq>> ] bi* nth-unsafe
] [ ] [
nip elt>> nip elt>>
] if ; ] if ;