DISCO presents ディスカバリーチャンネル Programming Contest 2016 Qualification A - DISCO presents ディスカバリーチャンネルプログラミングコンテスト 2016

golfで鍛えたperl力。

A - DISCO presents ディスカバリーチャンネルプログラミングコンテスト 2016

#!/usr/bin/perl
$n = int(<>);
$s = DiscoPresentsDiscoveryChannelProgrammingContest2016;
$s =~ s/(.{${n}})/\1\n/g;
chomp $s;
print $s,$/;