This week's code snippet, Palindromic Number in Perl, is brought to you by Subete and the Sample Programs repo.
# accept an integer, reverse it, compare it with original
# print true, if original and reversed number are same
# print false, if original and reversed number are same
#!/usr/bin/env perl
use strict;
use warnings;
# no input
usage() unless @ARGV == 1;
# accept input as argument
my ($number) = @ARGV;
# if not provided, read from standard input
if (!defined $number) {
$number = <STDIN>;
chomp $number;
}
if (!defined $number || $number !~ /^\d+$/ || $number < 0) {
usage();
}
my $temp = $number;
my $noofdigits = 0;
my $reversed_number = 0;
while ($temp > 0){
$reversed_number = ($reversed_number * 10) + ($temp % 10);
$temp = int($temp / 10);
$noofdigits += 1;
}
if ($number < 0){
print("Usage: please input a non-negative integer")
}
else{
if ($reversed_number == $number){
print("true");
}
else{
print("false");
}
}
sub usage {
print "Usage: please input a non-negative integer";
exit;
}Below you'll find an up-to-date list of articles by me on The Renegade Coder. For ease of browsing, emojis let you know the article category (i.e., blog: ✒️, code: 💻, meta: 💭, teach: 🍎)
- 💻 A Case Study on the Philosophy of Software Design
- ✒️ Inside the Mind of an Engineer: How to Make Societal Issues Worse
- ✒️ How Attack on Titan Undermines Its Own Message
- 💻 Migrating to Poetry 2.x With Some Best Practices
- ✒️ Maybe Generative AI Is Just a Symptom of a Broader Problem in Tech
- 🍎 It’s Time to Collect Mid-Semester Feedback
- 💭 2024: Year in Review
- ✒️ Is Anyone Else Bothered by How Quickly We Adopted Generative AI?
- ✒️ 31 Lessons Learned as a New Dad
- 🍎 So You’re Not Sure If Computer Science Is for You
Also, here are some fun links you can use to support my work.
This document was automatically rendered on 2025-04-18 using SnakeMD.