Data commit

Task/Padovan-sequence/J/padovan-sequence-1.j

@@ -0,0 +1,10 @@
+padovanSeq=: (],+/@(_2 _3{]))^:([-3:)&1 1 1
+
+NB. or, equivalently:
+padovanSeq=: (, [: +/ _2 {. }:)@]^:([ - 2:)&1 1
+
+realRoot=. {:@(#~ ]=|)@;@p.
+padovanNth=: 0.5 <.@+ (realRoot _23 23 _2 1) %~ (realRoot _1 _1 0 1)^<:
+
+padovanL=: rplc&('A';'B'; 'B';'C'; 'C';'AB')@]^:[&'A'
+seqLen=. #@(-.&' ')"1

Task/Padovan-sequence/J/padovan-sequence-2.j

@@ -0,0 +1,17 @@
+   padovanSeq 20
+1 1 1 2 2 3 4 5 7 9 12 16 21 28 37 49 65 86 114 151
+   (padovanSeq 64) -: padovanNth(i.64)
+1
+   padovanL i.10
+A
+B
+C
+AB
+BC
+CAB
+ABBC
+BCCAB
+CABABBC
+ABBCBCCAB
+   (padovanSeq 32) -: seqLen padovanL i.32
+1