Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Happy-numbers/Quackery/happy-numbers.quackery
+++ b/Task/Happy-numbers/Quackery/happy-numbers.quackery
@ -0,0 +1,22 @@
+  [ 0 swap
+    [ 10 /mod 2 **
+      rot + swap
+      dup 0 = until ]
+    drop ]                  is digitsquare ( n --> n )
+
+  [ [ digitsquare
+      dup  1 != while
+      dup 42 != while
+      again ]
+    1 = ]                   is happy       ( n --> b )
+
+  [ [] 1
+    [ dip
+      [ 2dup size > ]
+      swap while
+      dup happy if
+        [ tuck join swap ]
+      1+ again ]
+    drop nip ]             is happies      ( n --> [ )
+
+  8 happies echo