math.transforms.bwt: cleaner to check last.
parent
14c5f30ee5
commit
85fdc4f6d2
|
@ -12,4 +12,4 @@ IN: math.transforms.bwt
|
||||||
: ibwt ( newseq -- seq )
|
: ibwt ( newseq -- seq )
|
||||||
[ length [ { } <array> ] keep ] keep
|
[ length [ { } <array> ] keep ] keep
|
||||||
'[ _ [ prefix ] 2map natural-sort ] times
|
'[ _ [ prefix ] 2map natural-sort ] times
|
||||||
[ { 0 } tail? ] find nip but-last ;
|
[ last 0 = ] find nip but-last ;
|
||||||
|
|
Loading…
Reference in New Issue