Perl, (削除) 70 (削除ここまで) (削除) 68 (削除ここまで) (削除) 66 (削除ここまで) 50 characters
$"=",";map/(.)1円{3}/||say,glob$i.="{@a}"for@a=A..M
Usage:
$ perl -E 'code' > output_file
The nice thing is that the prints are buffered, so you get all 1-character solutions printed first, followed by 2-character words and so on.
Zaid
- 1.1k
- 6
- 7