Use cut-slice instead of cut in a loop

db4
Samuel Tardieu 2008-01-03 11:52:46 +01:00
parent cf19d8a37c
commit 598c53d6eb
1 changed files with 1 additions and 1 deletions

View File

@ -68,7 +68,7 @@ IN: project-euler.018
63 66 04 68 89 53 67 30 73 16 69 87 40 31 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 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> PRIVATE>