tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Self-referential-sequence/J/self-referential-sequence-1.j
+++ b/Task/Self-referential-sequence/J/self-referential-sequence-1.j
@ -0,0 +1,6 @@
+require'stats'
+digits=: 10&#.inv"0 :. ([: ".@; (<'x'),~":&.>)
+summar=: (#/.~ ,@,. ~.)@\:~&.digits
+sequen=: ~.@(, summar@{:)^:_
+values=: ~. \:~&.digits i.1e6
+allvar=: [:(#~(=&<.&(10&^.) >./))@~.({~ perm@#)&.(digits"1)
--- a/Task/Self-referential-sequence/J/self-referential-sequence-2.j
+++ b/Task/Self-referential-sequence/J/self-referential-sequence-2.j
@ -0,0 +1,26 @@
+   ;allvar&.> values #~ (= >./) #@sequen"0 values
+9900 9090 9009
+   # sequen 9900
+21
+   ,.sequen 9900
+                9900
+                2920
+              192210
+            19222110
+            19323110
+          1923123110
+          1923224110
+        191413323110
+        191433125110
+      19151423125110
+      19251413226110
+    1916151413325110
+    1916251423127110
+  191716151413326110
+  191726151423128110
+19181716151413327110
+19182716151423129110
+29181716151413328110
+19281716151423228110
+19281716151413427110
+19182716152413228110
--- a/Task/Self-referential-sequence/J/self-referential-sequence-3.j
+++ b/Task/Self-referential-sequence/J/self-referential-sequence-3.j
@ -0,0 +1,4 @@
+   digits 321
+3 2 1
+   digits inv 34 5
+345
--- a/Task/Self-referential-sequence/J/self-referential-sequence-4.j
+++ b/Task/Self-referential-sequence/J/self-referential-sequence-4.j
@ -0,0 +1,2 @@
+   summar 0 1 2
+10 11 12