{"provider_url":"https://hatena.blog","width":"100%","type":"rich","description":"AtCoder Beginner Contest #011 \u4eca\u65e5DP\u6559\u3048\u3066\u3082\u3089\u3063\u305f\u306e\u3067\u9811\u5f35\u308a\u307e\u3057\u305f A\u554f\u984c \u4f55\u3082\u8003\u3048\u305a\u306b\u5b9f\u88c5\u3057\u307e\u3057\u305f\u3002 \uff08\u4f59\u308a\u3092\u4f7f\u3046\u3068\u304b\u305d\u3093\u306a\u767a\u60f3\u5168\u304f\u306a\u304b\u3063\u305f\uff09 #!/usr/bin/perl use strict; use warnings; my $N = ; chomp($N); $N++; $N = 1 if $N == 13; print $N.\"\\n\"; B\u554f\u984c Google\u306b\u983c\u308a\u5207\u3063\u305f\u89e3\u7b54\u3067\u3059\u3002 \u4ed6\u306e\u4eba\u306e\u3092\u898b\u308b\u3068\u6b63\u898f\u8868\u73fe\u3068\u304b\u3067\u66f8\u3051\u308b\u3063\u307d\u3044\u3067\u3059\u306d\u3002 #!/usr/bin/perl use strict; use warnings; my $S = ","blog_title":"minasa@hatenablog"}