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)