Problem: Letter Primes

Code: Letter+Primes/tails_1705892071

Nibbles version: 0.2 | 0.21 | 0.22 | 0.23 | 0.24 | 0.25 | 1.00

Format: Compact | Simple | +Type | Table | JSON | .nbl (DeBruijn) | .nbl (names)


DepthLitDescTypeArgLet
0: append[[chr]]
* 11 integerint
* 1`' transpose[[chr]]
** 2+ add[chr]
*** 3'@' charchr
*** 3! zip with[int]
**** 4`< sort[int]
***** 5`$ uniq[int]
****** 6; save[int]D:[int]
******* 7. map[int]
******** 8; save[int]A:[int]
********* 9<< init[int]
********** 10>> tail[int]
*********** 11, range from 1[int]
************ 12$ = fstIntint
******** 8? indexintB:int
********* 9@ = A[int]
********* 9~ bynull
********* 9~ notnull
********* 9% modulusintC:int
********** 10@ = Bint
********** 10$ = Cint
**** 4@ = D[int]E:int
**** 4? zipop: indexnull