use Perl6::Form;
my @amounts = (0, 1, 1.2345, 1234.56, -1234.56, 1234567.89);
print form
"Farsi (Iranian):",
" {-IRR 0/[[[[[[[[}",
farsi(@amounts);
sub farsi {
[ map { /(-?)(\d+)(?:\.(\d\d))?/; $1.($3||0).".".$2 } @_ ];
}
use Perl6::Form;
my @amounts = (0, 1, 1.2345, 1234.56, -1234.56, 1234567.89);
print form
"Farsi (Iranian):",
" {-IRR 0/[[[[[[[[}",
farsi(@amounts);
sub farsi {
[ map { /(-?)(\d+)(?:\.(\d\d))?/; $1.($3||0).".".$2 } @_ ];
}