Problem: compress me

Code: compress+me/tails_1712280205

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<< init[chr]
* 1<< init[chr]
** 2>> tail[chr]
*** 3. map[chr]
**** 4`. iterate while uniq[int,int,chr]
***** 5~~ 3-ary tupleint,int,chr
****** 6$ = fstIntint
****** 6^ powint
******* 72 integerint
******* 733711 integerint
****** 6' ' charchr
***** 5implicit tupleint,int,chrC:int B:int A:chr
****** 6? if/elseintK:int J:chr
******* 7- subtractint
******** 8; saveintD:int
********* 9/ divideint
********** 10* multiplyint
*********** 1127 integerint
*********** 11@ = Bint
********** 10^ powint
*********** 11~ auto = 10auto
*********** 11~ auto = 2auto
******** 8@ = Cint
******* 7~~ 3-ary tupleint,int,chrE:int
******** 8_ = Cint
******** 8@ = Dint
******** 8'0' charchr
******* 7implicit tupleint,int,chr
******** 8? if/elseintI:int H:chr
********* 9- subtractint
********** 10; saveintF:int
*********** 11/ divideint
************ 12* multiplyint
************* 1396 integerint
************* 13_ = Bint
************ 12^ powint
************* 13~ auto = 10auto
************* 13~ auto = 2auto
********** 10_ = Cint
********* 9~~ 3-ary tupleint,int,chrG:int
********** 10- subtractint
*********** 11;$ = Cint
*********** 11_ = Dint
********** 10- subtractint
*********** 11@ = Fint
*********** 11_ = Dint
********** 10'1' charchr
********* 9implicit tupleint,int,chr
********** 10- subtractint
*********** 11_ = Cint
*********** 11$ = Fint
********** 10- subtractint
*********** 11;$ = Bint
*********** 11$ = Fint
********** 10'2' charchr
******** 8$ = Iint
******** 8@ = Hchr
****** 6$ = Kint
****** 6@ = Jchr
**** 4_ = LchrN:int M:int L:chr

Back to the index