Task1
We convert each number into binary and join them with dashes:
#!/usr/bin/env perl
use strict;
use warnings;
sub binary_date{
$_[0] =~ s/(\d+)/{sprintf "%b",$1}/rge
}
printf "%s\n",binary_date('2025-07-26');
printf "%s\n",binary_date('2000-02-02');
printf "%s\n",binary_date('2024-12-31');
Task2
We check if each letters occurred odd number of times:
#!/usr/bin/env perl
use strict;
use warnings;
use List::Util qw(all);
sub odd_letters{
my %h;
$h{$_}++ foreach split '',$_[0];
all{$h{$_} & 1} keys %h
}
printf "%d\n",odd_letters('weekly');
printf "%d\n",odd_letters('perl');
printf "%d\n",odd_letters('challenge');
No comments:
Post a Comment