Use unzip

2008-07-20 01:13:46 -05:00 · 2008-07-20 01:13:46 -05:00 · 96b5c674ab
parent 40d94ad60d
commit 96b5c674ab
1 changed files with 1 additions and 1 deletions
--- a/extra/project-euler/079/079.factor
+++ b/extra/project-euler/079/079.factor
@ -35,7 +35,7 @@ IN: project-euler.079
    ] { } make ;

 : find-source ( seq -- elt )
-    [ keys ] [ values ] bi diff prune
+    unzip diff prune
    dup empty? [ "Topological sort failed" throw ] [ first ] if ;

 : remove-source ( seq elt -- seq )