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

Use unzip

db4
Slava Pestov 2008-07-20 01:13:46 -05:00
parent 40d94ad60d
commit 96b5c674ab
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/project-euler/079/079.factor
View File

@ -35,7 +35,7 @@ IN: project-euler.079
] { } make ; ] { } make ;
: find-source ( seq -- elt ) : find-source ( seq -- elt )
[ keys ] [ values ] bi diff prune unzip diff prune
dup empty? [ "Topological sort failed" throw ] [ first ] if ; dup empty? [ "Topological sort failed" throw ] [ first ] if ;
: remove-source ( seq elt -- seq ) : remove-source ( seq elt -- seq )