Contents

unit module Wordy:ver<2>;

sub answer ($q is copy) is export { 
  given $q {
    s:s:g/^What is|\?$//;
    s:g/plus/+/;
    s:g/minus/−/;
    loop {
      last unless
        s:s/(.*) multiplied by/($0)×/
        or s:s/(.*) divided by/($0)÷/;
    }
  }
  use MONKEY-SEE-NO-EVAL;
  EVAL $q or fail;
}

Version data entries

83 entries across 83 versions & 1 rubygems

Version	Path
trackler-2.2.1.98	tracks/perl6/exercises/wordy/Example.pm6
trackler-2.2.1.97	tracks/perl6/exercises/wordy/Example.pm6
trackler-2.2.1.96	tracks/perl6/exercises/wordy/Example.pm6