2 lines
102 B
Text
2 lines
102 B
Text
sphenic=: {{ N #~ N = {{*/~.3{.y}}@q: N=. 30}.i.y }}
|
|
triplet=: {{ 0 1 2 +/~y #~ */y e.~ 0 1 2 +/ y }}
|