昨日見つけた、世界のナベアツ問題を、perlでやってみました。perl初心者なので素直に書いたつもりです。 #!/usr/bin/perl for ($i = 1; $i <= 40; $i++) { $aho = $i % 3; $aho2 = $i; if ( $aho2 >= 10 ) { for ( $aho3 = 0; $aho2 > 10; $aho3++ ) { $aho…