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

おおにしさんが何やら面白そうなことをしていたので、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でどうやるんですかね。 どうでもいいけどこのブログ、「よくわかんないけど」って書きすぎですね。

Read more