Problem: I like unit fractions

Code: I+like+unit+fractions/tails_1710840436

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
0implicit string concatenation[chr]
* 1< take[chr]
** 22 integerint
** 2@ = fstLine[chr]
* 1/ divideint
** 2; saveintA:int
*** 3^ powint
**** 42 integerint
**** 463 integerint
** 2- subtractint
*** 3= subscript (wrapped)int
**** 4% modulusint
***** 5/ foldr1chr
****** 6= subscript (wrapped)[chr]
******* 72 integerint
******* 7; save[[chr]]B:[[chr]]
******** 8% split (remove empties)[[chr]]
********* 9_ = fstLine[chr]
********* 9~ auto = wordsauto
****** 6$ = DchrD:chr C:chr
***** 521 integerint
**** 4: append[int]
***** 5+ addint
****** 6; saveintI:int
******* 7/ foldr1int
******** 8; save[int]F:[int]
********* 9. map[int]
********** 10$ = B[[chr]]
********** 10/ divideintE:[chr]
*********** 11_ = Aint
*********** 11`r read intint
************ 12>> tail[chr]
************* 13$ = E[chr]
******** 8$ = HintH:int G:int
****** 6; saveintL:int
******* 7/ foldr1int
******** 8@ = F[int]
******** 8@ = JintK:int J:int
***** 5: append[int]
****** 6`& bit intersectionint
******* 7@ = Iint
******* 7$ = Lint
****** 6: append[int]
******* 7- subtractint
******** 8@ = Iint
******** 8$ = Lint
******* 7: append[int]
******** 8`| bit unionint
********* 9$ = Lint
********* 9@ = Iint
******** 8`^ bit xorint
********* 9@ = Iint
********* 9$ = Lint
*** 3~ auto = 1auto