]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/benchmark/knucleotide/knucleotide.factor
Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...
[factor.git] / extra / benchmark / knucleotide / knucleotide.factor
index 99b0ee15f4ea60ecc616e8f55210903469748ccb..fb4f17cca5c768615975aa03451108ebf4bea86a 100644 (file)
@@ -23,12 +23,12 @@ IN: benchmark.knucleotide
 : tally ( x exemplar -- b )
     clone tuck
     [
-      [ [ 1+ ] [ 1 ] if* ] change-at
+      [ [ 1 + ] [ 1 ] if* ] change-at
     ] curry each ;
 
 : small-groups ( x n -- b )
     swap
-    [ length swap - 1+ ] 2keep
+    [ length swap - 1 + ] 2keep
     [ [ over + ] dip subseq ] 2curry map ;
 
 : handle-table ( inputs n -- )