そろそろ FizzBuzz に飽きた : にぽたん研究所
コードサンプルによく出てくる FizzBuzz だが、もう飽きたから、俺はこれから NabeAtzz で行こうと思う。 use strict; use warnings; use Encode; use Lingua::JA::Numbers; for my $num ( 1 .. 40 ) { print((!($num % 3) || $num =~ /3/ ? encode('utf8', num2ja($num, +{ style => "hiragana" })) : $num), "\n"); } 期待する結果: 実行結果: % ./NabeAtzz.pl 1 2 さん 4 5 ろく 7 8 きゅう 10 11 じゅうに じゅうさん 14 じゅうご 16 17 じゅうはち 19 20 にじゅういち 22 にじゅうさん にじゅうよん 25 26 にじゅうなな 28 29 さんじゅ
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
perl - 複数パッケージを含むファイル : 404 Blog Not Found
2006年12月02日03:30 カテゴリLightweight Languages perl - 複数パッケージを含むファイル ついでなので、perlのpackageについて。 odz buffer - Perl は 1ファイルに複数のパッケージを書けるはず・・・ 違いますよ、と突っ込もうと思ったけど、自信がないので確認(おぃ)。 Perl5におけるpackageというのは、単なるnamespaceの宣言に過ぎず、それ以上でもそれ以下でもありません。package Foo;というのは、「このlexical scopeにおけるnamespaceはFooである」という宣言なのです。なので、 ちなみに HTTP::Proxyの SYNOPSIS なんかみると、 { package FilterPerl; use base qw( HTTP::Proxy::BodyFilter ); # sni
perl - Language::BF 0.02 released : 404 Blog Not Found
2006年06月27日17:50 カテゴリLightweight Languages perl - Language::BF 0.02 released お約束どおり、Language::BF 0.010.02 を Release したのでお知らせします。CPANの更新を待てない人はこちらから。 404 Blog Not Found:brainfu.k - perl と javascript による処理系 CPANに上げられるよう、moduleとして実装してみました。前の記事からの拡張としては、compilerをつけたことがあります。といってもこんだけ。 sub compile($){ my $bf = shift; my $src = <<'EOS'; sub { my (@data, @out) = (); my $sp = 0; EOS for my $op ( @{ $bf->{c
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perl の Regexp::List で capture => 1 が効かない件 - miau's blog?