Re: [QUIZ] Perl 'Medium' Quiz: Graph Connected Components (#2006-12-29)

------=_Part_12891_29238384.1167947326666
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

On 12/29/06, Shlomi Fish <shlomif-ik1l9ssToec+JF/[email protected]> wrote:
> Here's a quiz for the new year. My sister received this challenge for her
> college homework, and had to write some Standard ML code to solve it, a task
> which I helped her with. I hope you enjoy it too.

I had originally misunderstood the sorting requirement, so I suspect I
would have done things a little differently if I had incorporated it
from the beginning.

Nothing fancy or elegant here, just brute force creation of partitions.

Bob

------=_Part_12891_29238384.1167947326666
Content-Type: application/x-perl; name=connected.pm
Content-Transfer-Encoding: base64
X-Attachment-Id: f_ewjpo3j0
Content-Disposition: attachment; filename="connected.pm"

IyEvdXNyL2Jpbi9wZXJsCgp1c2Ugc3RyaWN0Owp1c2Ugd2FybmluZ3M7CgpzdWIgY29ubmVjdGVk
KCQpCnsKICBteSAkZWRnZXMgPSBzaGlmdDsKICBteSAlbm9kZXMgPSAoKTsKCiAgbXkgJGluZGV4
ID0gMDsKICBteSAlcGFydGl0aW9uT3JkZXIgPSAoKTsKICBteSAlZWRnZXNPcmRlciA9ICgpOwog
IGZvciBteSAkZWRnZSAoQCRlZGdlcykKICB7CiAgICAkZWRnZXNPcmRlcnskZWRnZX0gPSArKyRp
bmRleDsKICAgIG15ICgkbm9kZUEsICRub2RlQikgPSBAJGVkZ2U7CgogICAgaWYoJG5vZGVzeyRu
b2RlQX0gYW5kICRub2Rlc3skbm9kZUJ9KQogICAgewogICAgICBteSAkcG9zQSA9ICRwYXJ0aXRp
b25PcmRlcnskeyRub2Rlc3skbm9kZUF9fX07CiAgICAgIG15ICRwb3NCID0gJHBhcnRpdGlvbk9y
ZGVyeyR7JG5vZGVzeyRub2RlQn19fTsKICAgICAgJHBhcnRpdGlvbk9yZGVyeyR7JG5vZGVzeyRu
b2RlQX19fSA9ICRwb3NBID4gJHBvc0IgPyAkcG9zQiA6ICRwb3NBOwoKICAgICAgcHVzaCBAJHsk
bm9kZXN7JG5vZGVBfX0sIChAJHskbm9kZXN7JG5vZGVCfX0pOwogICAgICAkeyRub2Rlc3skbm9k
ZUJ9fSA9ICR7JG5vZGVzeyRub2RlQX19OwogICAgfQogICAgZWxzaWYoJG5vZGVzeyRub2RlQX0g
b3IgJG5vZGVzeyRub2RlQn0pCiAgICB7CiAgICAgICRub2Rlc3skbm9kZUF9IHx8PSAkbm9kZXN7
JG5vZGVCfTsKICAgICAgJG5vZGVzeyRub2RlQn0gfHw9ICRub2Rlc3skbm9kZUF9OwogICAgfQog
ICAgZWxzZQogICAgewogICAgICAkbm9kZXN7JG5vZGVBfSA9ICRub2Rlc3skbm9kZUJ9ID0gXFtd
OwogICAgICAkcGFydGl0aW9uT3JkZXJ7JHskbm9kZXN7JG5vZGVBfX19ID0gJGluZGV4OwogICAg
fQogICAgcHVzaCBAJHskbm9kZXN7JG5vZGVBfX0sICRlZGdlOwogIH0KICBteSAlcGFydGl0aW9u
cyA9ICgpOwogICRwYXJ0aXRpb25zeyQkX30gPSBbc29ydCB7JGVkZ2VzT3JkZXJ7JGF9IDw9PiAk
ZWRnZXNPcmRlcnskYn19IEB7JCRffV0gZm9yZWFjaCB2YWx1ZXMgJW5vZGVzOwogIHJldHVybiBb
bWFwIHskcGFydGl0aW9uc3skX319IHNvcnQgeyRwYXJ0aXRpb25PcmRlcnskYX0gPD0+ICRwYXJ0
aXRpb25PcmRlcnskYn19IGtleXMgJXBhcnRpdGlvbnNdOwp9CgoxOwo=
------=_Part_12891_29238384.1167947326666--