#Perl, (削除) 70 (削除ここまで)(削除) 68 (削除ここまで)(削除) 66 (削除ここまで) 50 characters
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.
#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.
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.
#Perl, (削除) 70 (削除ここまで) (削除) 68 (削除ここまで) (削除) 66 (削除ここまで) 5250 characters
$"=",";map{map/(.)1円{3}/||say,glob$i.="{@a}"}@a=A"for@a=A..M
Usage:
$ perl -E 'code' > output_file
I've only been able to test the code withThe nice thing is that the A..F rangeprints are buffered, but with enough timeso you get all 1-character solutions printed first, followed by 2-character words and resources the same code should be applicable from A to Mso on.
#Perl, (削除) 70 (削除ここまで) (削除) 68 (削除ここまで) (削除) 66 (削除ここまで) 52 characters
$"=",";map{map/(.)1円{3}/||say,glob$i.="{@a}"}@a=A..M
Usage:
$ perl -E 'code' > output_file
I've only been able to test the code with the A..F range, but with enough time and resources the same code should be applicable from A to M.
#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.
#Perl, (削除) 70 (削除ここまで) (削除) 68 (削除ここまで) 66(削除) 66 (削除ここまで) 52 characters
$"=",";@a=A..M;$i.="";map{@a}"x++$x." "for@a;map!map/(.)1円{3}/&&say||say,glob$i.="{@a}"}@a=A..M
Usage:
$ perl -E 'code' > output_file
I've only been able to test the code with the A..F range, but with enough time and resources the same code should be applicable from A to M.
Interestingly, the <> form of the glob operator refuses to work on my machine, else I could have saved 2 characters.
#Perl, (削除) 70 (削除ここまで) (削除) 68 (削除ここまで) 66 characters
$"=",";@a=A..M;$i.="{@a}"x++$x." "for@a;map!/(.)1円{3}/&&say,glob$i
Usage:
$ perl -E 'code' > output_file
I've only been able to test the code with the A..F range, but with enough time and resources the same code should be applicable from A to M.
Interestingly, the <> form of the glob operator refuses to work on my machine, else I could have saved 2 characters.
#Perl, (削除) 70 (削除ここまで) (削除) 68 (削除ここまで) (削除) 66 (削除ここまで) 52 characters
$"=",";map{map/(.)1円{3}/||say,glob$i.="{@a}"}@a=A..M
Usage:
$ perl -E 'code' > output_file
I've only been able to test the code with the A..F range, but with enough time and resources the same code should be applicable from A to M.