Decompose integer into sum of squaresの件

anarchy golf - Decompose integer into sum of squares
anarchy golf の出題ミス? - TAKESAKOのはてな出張所
どうやら間違っていたらしく。全然気付かずにゴチャゴチャと書いたヤツが通っていたのでまったく気付きませんでした orz


たぶんこんなのを書きますた。

use List::Util 'sum';$c[sum map{$_**2}@$_]||=[grep$_,@$_]for map{@a=@$_;map[$_,@a],1..17}map{@a=@$_;map[$_,@a],0..12}map{@a=$_;map[$_,@a],0..8}0..2;print"$_: @{$c[$_]}\n"for 1..300


で、あらためて書き直してみた。

use List::Util 'sum';push@{$c[sum map$_**2,@$_]},[grep$_,@$_]for map{$a=$_;map{$b=$_;map{$c=$_;map[$a,$b,$c,$_],0..2}0..8}0..12}1..17;printf"$_: %s\n",join$",sort{$b<=>$a}@{(sort{@$a==@$b?sum(@$a)<=>sum@$b:@$a<=>@$b}@{$c[$_]})[0]}for 1..300

どっちにしても長過ぎる orz
こっちはsubmitしても通らない。

$ perl old.pl > old_output
$ perl new.pl > new_output
$ diff -u old_output new_output
--- old_output	2009-07-24 11:25:42.000000000 +0900
+++ new_output	2009-07-24 11:26:56.000000000 +0900
@@ -60,7 +60,7 @@
 60: 7 3 1 1
 61: 6 5
 62: 6 5 1
-63: 6 5 1 1
+63: 7 3 2 1
 64: 8
 65: 8 1
 66: 8 1 1
@@ -68,7 +68,7 @@
 68: 8 2
 69: 8 2 1
 70: 6 5 3
-71: 6 5 3 1
+71: 7 3 3 2
 72: 6 6
 73: 8 3
 74: 7 5
@@ -126,7 +126,7 @@
 126: 11 2 1
 127: 11 2 1 1
 128: 8 8
-129: 8 8 1
+129: 11 2 2
 130: 11 3
 131: 11 3 1
 132: 8 8 2
@@ -140,7 +140,7 @@
 140: 10 6 2
 141: 11 4 2
 142: 9 6 5
-143: 9 6 5 1
+143: 11 3 3 2
 144: 12
 145: 12 1
 146: 11 5
@@ -153,7 +153,7 @@
 153: 12 3
 154: 12 3 1
 155: 11 5 3
-156: 11 5 3 1
+156: 12 2 2 2
 157: 11 6
 158: 11 6 1
 159: 11 6 1 1
@@ -163,8 +163,8 @@
 163: 9 9 1
 164: 10 8
 165: 10 8 1
-166: 9 9 2
-167: 9 9 2 1
+166: 11 6 3
+167: 11 6 3 1
 168: 10 8 2
 169: 13
 170: 13 1
@@ -179,8 +179,8 @@
 179: 13 3 1
 180: 12 6
 181: 10 9
-182: 10 9 1
-183: 10 9 1 1
+182: 13 3 2
+183: 13 3 2 1
 184: 12 6 2
 185: 13 4
 186: 13 4 1
@@ -188,7 +188,7 @@
 188: 13 3 3 1
 189: 13 4 2
 190: 10 9 3
-191: 10 9 3 1
+191: 13 3 3 2
 192: 8 8 8
 193: 12 7
 194: 13 5
@@ -206,7 +206,7 @@
 206: 14 3 1
 207: 14 3 1 1
 208: 12 8
-209: 12 8 1
+209: 14 3 2
 210: 13 5 4
 211: 11 9 3
 212: 14 4
@@ -240,7 +240,7 @@
 240: 14 6 2 2
 241: 15 4
 242: 11 11
-243: 11 11 1
+243: 15 3 3
 244: 12 10
 245: 14 7
 246: 14 7 1
@@ -294,7 +294,7 @@
 294: 17 2 1
 295: 17 2 1 1
 296: 14 10
-297: 14 10 1
+297: 17 2 2
 298: 17 3
 299: 17 3 1
 300: 14 10 2

これで気付いたけど今の問題だと63とかは2通り考えられて「同じ個数、かつ合計数も同じ」というパターンが起こり得るなぁ。

実際のルールは「数字の個数が同じときは数字を降順に並べ、後ろから順に比較して小さい方を表示」ですかね

というのがやはり出題側の意図だったんだろうか?