{"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhiratara.hatenadiary.jp%2Fentry%2F20120825%2F1345860758\" title=\"Perl\u3067\u3061\u3048\u3093\u3072\u3087\u3046\u304b - Pixel Pedals of Tomakomai\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","author_name":"hiratara","image_url":null,"categories":["\u6280\u8853"],"width":"100%","url":"https://hiratara.hatenadiary.jp/entry/20120825/1345860758","blog_title":"Pixel Pedals of Tomakomai","author_url":"https://blog.hatena.ne.jp/hiratara/","description":"Perl\u306f\u6b63\u683c\u8a55\u4fa1\u306a\u306e\u3067\u3001\u7121\u9650\u30ea\u30b9\u30c8\u306bhead\u3092\u304b\u3051\u3066\u3082\u505c\u6b62\u3057\u3066\u304f\u308c\u306a\u3044\u3002 use strict; use warnings; sub nil() { 'Nil' } sub concat($$) { my ($x, $xs) = @_; [$x, $xs]; } sub repeat($); sub repeat($) { my $x = shift; concat $x, (repeat $x); } sub head($) { my $xs = shift; $xs->[0]; } print head(concat 1, concat 2, nil), \"\\n\"; print +(he\u2026","type":"rich","height":"190","published":"2012-08-25 11:12:38","provider_name":"Hatena Blog","blog_url":"https://hiratara.hatenadiary.jp/","version":"1.0","title":"Perl\u3067\u3061\u3048\u3093\u3072\u3087\u3046\u304b","provider_url":"https://hatena.blog"}