続・FizzBuzz。まず問1が15分ぐらい。「use List::Util qw/reduce/;$cs='XFD';print reduce{$a+26**($n++)*(ord($b)-64)}0, (reverse split //,$cs)」字数で言うとmapのsumを取ったほうが短い。問2がこれの拡張か。いけるかな？

kiyo_hiko のブックマーク 2011/11/14 17:06

<blockquote class="hatena-bookmark-comment"><a class="comment-info" href="https://b.hatena.ne.jp/entry/65968213/comment/kiyo_hiko" data-user-id="kiyo_hiko" data-entry-url="https://b.hatena.ne.jp/entry/s/blog.jnito.com/entry/20111102/1320253815" data-original-href="https://blog.jnito.com/entry/20111102/1320253815" data-entry-favicon="https://cdn-ak2.favicon.st-hatena.com/64?url=https%3A%2F%2Fblog.jnito.com%2Fentry%2F20111102%2F1320253815" data-user-icon="/users/kiyo_hiko/profile.png">Excel列名変換問題で第２回社内プログラミングコンテストを開催してみた(前編) - give IT a try</a><ul class="comment-tag" style="list-style: none; margin: 0px;"><li style="float: left">[<a href="https://b.hatena.ne.jp/q/perl">perl</a>]</li><li style="float: left">[<a href="https://b.hatena.ne.jp/q/algorithm">algorithm</a>]</li><li style="float: left">[<a href="https://b.hatena.ne.jp/q/education">education</a>]</li></ul><br><p style="clear: left">続・FizzBuzz。まず問1が15分ぐらい。「use List::Util qw/reduce/;$cs='XFD';print reduce{$a+26**($n++)*(ord($b)-64)}0, (reverse split //,$cs)」字数で言うとmapのsumを取ったほうが短い。問2がこれの拡張か。いけるかな？</p><a class="datetime" href="https://b.hatena.ne.jp/kiyo_hiko/20111114#bookmark-65968213"><span class="datetime-body">2011/11/14 17:06</span></a></blockquote><script src="https://b.st-hatena.com/js/comment-widget.js" charset="utf-8" async></script>

このブックマークにはスターがありません。
最初のスターをつけてみよう！