June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Benfords-law/8th/benfords-law.8th
+++ b/Task/Benfords-law/8th/benfords-law.8th
@ -24,8 +24,8 @@ var counts
    0 s:@ '0 - nip ;

 : bump-digit \ n --
-    counts @ swap 1- dup >r a:@
-    1+ r> swap a:! drop ;
+    1 swap
+    counts @ swap 1- ' + a:op! drop ;

 : count-fibs \ --
    ( leading bump-digit ) 1000 fibs ;