Minimum Spanning Tree by tybalt89

s/
//,$a=@a[/\d+/g]="F $_
"for<>;/ (.) (.+) /,$$1-$$2and$$1=$$2=y/F/T/,do$0for@a;@a=!print@a

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page