Use cut-slice instead of cut in a loop

2008-01-03 11:52:46 +01:00 · 2008-01-03 11:52:46 +01:00 · 598c53d6eb
parent cf19d8a37c
commit 598c53d6eb
1 changed files with 1 additions and 1 deletions
--- a/extra/project-euler/018/018.factor
+++ b/extra/project-euler/018/018.factor
@ -68,7 +68,7 @@ IN: project-euler.018
      63 66 04 68 89 53 67 30 73 16 69 87 40 31
    04 62 98 27 23 09 70 98 73 93 38 53 60 04 23
  }
-  15 [ 1+ cut swap ] map nip ;
+  15 [ 1+ cut-slice swap ] map nip ;

 PRIVATE>