steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.transforms.bwt: cleaner to check last.

db4
John Benediktsson 2014-06-30 09:04:08 -07:00
parent 14c5f30ee5
commit 85fdc4f6d2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/math/transforms/bwt/bwt.factor
View File

@ -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 ;