読者になる

他人の脳内

この広告は、90日以上更新していないブログに表示しています。

2007-05-09

6nimmt.pl

programming 雑念

FizzBuzzの応用を思いついたので記す。

#!/bin/perl
use strict;
use warnings;

sub score($) {
    my $n = shift;
    my $score = 0;
    $score+=2 if $n% 5==0;
    $score++  if $n%10==0;
    $score+=5 if $n%11==0;
    return $score || 1;
}

for (1..104) { printf "%3d %s\n", $_, '*' x score($_); }    

another 2007-05-09 23:30

この記事をはてなブックマークに追加
Tweet
広告を非表示にする
  • もっと読む
コメントを書く
« 一両日FizzBuzzにはまった感想 昨日、某所に呼ばれて »
プロフィール
id:another id:another

はてなダイアリーの廃止に伴い、2019年3月2日に http://d.hatena.ne.jp/another/ から移行しました。再開の予定はありません。

読者です 読者をやめる 読者になる 読者になる
このブログについて
検索
リンク
  • はてなブログ
  • ブログをはじめる
  • 週刊はてなブログ
  • はてなブログPro
最新記事
  • リアルがおろそか
  • 用心の例
  • 失敗と二次的な失敗
  • ここ1-2年ではっきりしてしまったこと
  • 続・年度初めから凹む
月別アーカイブ

はてなブログをはじめよう!

anotherさんは、はてなブログを使っています。あなたもはてなブログをはじめてみませんか?

はてなブログをはじめる(無料)
はてなブログとは
他人の脳内 他人の脳内

Powered by Hatena Blog | ブログを報告する

引用をストックしました

引用するにはまずログインしてください

引用をストックできませんでした。再度お試しください

限定公開記事のため引用できません。

読者です 読者をやめる 読者になる 読者になる