kazuph1986 https://blog.hatena.ne.jp/kazuph1986/ 僕のYak Shavingは終わらない https://kazuph.hateblo.jp/ お題 10未満の自然数のうち、3 もしくは 5 の倍数になっているものは 3, 5, 6, 9 の4つがあり、これらの合計は 23 になる。 同じようにして、1,000 未満の 3 か 5 の倍数になっている数字の合計を求めよ。 Perl6で書いたコード perl6 -e 'say [+] (1..999).grep({!($_%3)||!($_%5)})'ちなみに同じ要領でPerl5で書こうとすると perl -e 'print eval(join "+",(grep{!($_%3)||!($_%5)}1..(999)))'だいぶ短く書けることを知ったけど、なんかPerl6に需要がある感じが… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkazuph.hateblo.jp%2Fentry%2F20120712%2F1342098910" title="今日何故かPerl6でワンライナーを書いた - 僕のYak Shavingは終わらない" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2012-07-12 22:15:10 rich https://kazuph.hateblo.jp/entry/20120712/1342098910 1.0 100%