Month: 12月 2010

頭の体操(を、頭を使わずにどうにかする)

おおにしさんが何やら面白そうなことをしていたので、perlでやってみた(他に方法を知らない)。

#!/usr/bin/perl -w
use strict;
for (1111 .. 9999){
    my @can = split(//);
    next if ($can[0] > $can[1] || $can[2] > $can[3]);
    if (2 * $can[0] * $can[1] - $can[2] * $can[3] == 7){
        print ("$can[0], $can[1], $can[2], $can[3]\n");
    }
}

組み合わせのチェックをする方法がよくわからなかったので、2カ所だけチェックしてるアレな感じ。rubyのsetみたいなのってperlでどうやるんですかね。

どうでもいいけどこのブログ、「よくわかんないけど」って書きすぎですね。