Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Set-right-adjacent-bits/Factor/set-right-adjacent-bits.factor
+++ b/Task/Set-right-adjacent-bits/Factor/set-right-adjacent-bits.factor
@ -0,0 +1,12 @@
+USING: formatting io kernel math math.parser math.ranges
+sequences ;
+
+: set-rab ( n b -- result )
+    [0,b] [ neg shift ] with [ bitor ] map-reduce ;
+
+:: show ( n b e -- )
+    b e "n = %d; width = %d\n" printf
+    n n b set-rab [ >bin e CHAR: 0 pad-head print ] bi@ ;
+
+{ 0b1000 0b0100 0b0010 0b0000 } [ 2 4 show nl ] each
+0x10020080404082112 4 <iota> [ 66 show nl ] with each