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

math.bitwise: bitfield should just use map-reduce.

db4
John Benediktsson 2015-05-31 08:04:34 -07:00
parent b1ac83c908
commit 0eea157d90
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/math/bitwise/bitwise.factor
View File

@ -72,8 +72,7 @@ PRIVATE>
MACRO: bitfield ( bitspec -- ) MACRO: bitfield ( bitspec -- )
[ [ 0 ] ] [ [ [ 0 ] ] [
[ (bitfield-quot) ] map unclip [ (bitfield-quot) ] [ '[ @ _ dip bitor ] ] map-reduce
[ '[ @ _ dip bitor ] ] reduce
] if-empty ; ] if-empty ;
! bit-count ! bit-count