頭の体操（を、頭を使わずにどうにかする）

おおにしさんが何やら面白そうなことをしていたので、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でどうやるんですかね。