6nimmt.pl

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($_); }