blob: ae71c5c31e72d0884ffe88baf385ae06ccbd1827 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/usr/bin/perl
# https://perlweeklychallenge.org/blog/perl-weekly-challenge-042/
# Task #1
# Octal Number System
# Write a script to print decimal number 0 to 50 in Octal Number System.
#
# For example:
#
# Decimal 0 = Octal 0
# Decimal 1 = Octal 1
# Decimal 2 = Octal 2
# Decimal 3 = Octal 3
# Decimal 4 = Octal 4
# Decimal 5 = Octal 5
# Decimal 6 = Octal 6
# Decimal 7 = Octal 7
# Decimal 8 = Octal 10
# and so on.
use strict;
use warnings;
printf "Decimal $_ = Octal %o\n",$_ for (0 .. 50);
|
