Add tasks for all the new languages

2016-12-05 23:44:36 +01:00 · 2016-12-05 23:44:36 +01:00 · bba7bfd280
commit bba7bfd280
parent 9dc3c2bb62
13208 changed files with 134745 additions and 0 deletions
--- a/Task/Happy-numbers/Oforth/happy-numbers.oforth
+++ b/Task/Happy-numbers/Oforth/happy-numbers.oforth
@ -0,0 +1,16 @@
+: isHappy(n)
+| cycle |
+   ListBuffer new ->cycle
+
+   while(n 1 <>) [
+      cycle include(n) ifTrue: [ false return ]
+      cycle add(n)
+      0 n asString apply(#[ asDigit sq + ]) ->n
+      ]
+   true ;
+
+: happyNum(N)
+| numbers |
+   ListBuffer new ->numbers
+   1 while(numbers size N <>) [ dup isHappy ifTrue: [ dup numbers add ] 1+ ]
+   numbers println ;