aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Non-decimal-radices-Convert/Perl/non-decimal-radices-convert-1.pl Normal file
View file

@ -0,0 +1,4 @@
sub to2 { sprintf "%b", shift; }
sub to16 { sprintf "%x", shift; }
sub from2 { unpack("N", pack("B32", substr("0" x 32 . shift, -32))); }
sub from16 { hex(shift); }

16
Task/Non-decimal-radices-Convert/Perl/non-decimal-radices-convert-2.pl Normal file
View file

@ -0,0 +1,16 @@
sub base_to {
my($n,$b) = @_;
my $s = "";
do {
$s = ('0'..'9','a'..'z')[$n % $b] . $s
} while $n = int($n / $b);
$s
}
sub base_from {
my($n,$b) = @_;
my $t = 0;
for my $c (split(//, lc($n))) {
$t = $b * $t + index("0123456789abcdefghijklmnopqrstuvwxyz", $c);
}
$t;
}

4
Task/Non-decimal-radices-Convert/Perl/non-decimal-radices-convert-3.pl Normal file
View file

@ -0,0 +1,4 @@
use POSIX;
my ($num, $n_unparsed) = strtol('1a', 16);
$n_unparsed == 0 or die "invalid characters found";
print "$num\n"; # prints "26"

5
Task/Non-decimal-radices-Convert/Perl/non-decimal-radices-convert-4.pl Normal file
View file

@ -0,0 +1,5 @@
use ntheory qw/fromdigits todigitstring/;
my $n = 65261;
my $n16 = todigitstring($n, 16) || 0;
my $n10 = fromdigits($n16, 16);
say "$n $n16 $n10"; # prints "65261 feed 65261"