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

math.bitwise: remove duplicate logic in bitfield.

master
John Benediktsson 2020-08-05 15:57:27 -07:00
parent 70687a0eb3
commit 126f3acf63
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -68,18 +68,16 @@ M: pair (bitfield-quot) ( spec -- quot )
'[ _ _ shift ] '[ _ _ shift ]
] if ; ] if ;
: (bitfield) ( bitspec -- quot )
[ [ 0 ] ] [
[ (bitfield-quot) ] [ '[ @ _ dip bitor ] ] map-reduce
] if-empty ;
PRIVATE> PRIVATE>
MACRO: bitfield ( bitspec -- quot ) MACRO: bitfield ( bitspec -- quot ) (bitfield) ;
[ [ 0 ] ] [
[ (bitfield-quot) ] [ '[ @ _ dip bitor ] ] map-reduce
] if-empty ;
MACRO: bitfield* ( bitspec -- quot ) MACRO: bitfield* ( bitspec -- quot ) reverse (bitfield) ;
reverse
[ [ 0 ] ] [
[ (bitfield-quot) ] [ '[ @ _ dip bitor ] ] map-reduce
] if-empty ;
! bit-count ! bit-count
<PRIVATE <PRIVATE