Re: Breaking down whole number into digits

[aaron_baugher]

Since you want "Nov" to be translated into "1 1", I'm guessing that you want to average the lowercase ordinal values of the first and third letters, find the difference between that and the ordinal value of the second letter, express that in binary, and then split that into digits. Here you go; hope it helps:

#!/usr/bin/env perl
use Modern::Perl;

my @n = split '', lc('Nov');
my @arr = split '', sprintf "%0b",  
    (abs((ord($n[0])+ord($n[2]))/2 - ord($n[1])));
say join ' ', @arr;