#!/usr/bin/perl -w

use strict;
use Benchmark;

sub clarity
{
  my $tmp = shift;
  my $ret = 0;

  if($tmp eq 'F'){
    ;    # do nothing, spot held for clarity
  }elsif($tmp =~ /[MICL]/){
    $ret = 1;
  }else{
    $ret = 2;
  }
  return $ret;
}

sub speed
{
  my $tmp = shift;
  my $ret = 0;

  if($tmp =~ /[MICL]/){
    $ret = 1;
  }else{
    $ret = 2;
  }
  return $ret;
}

timethese(100_000, {
 	  clarity => sub { clarity('F'); clarity('M'); clarity('J'); },
	  speed   => sub { speed('F');   speed('M');   speed('J');   },
	  } );