Question

Write a perl program that prompts a user for a number and checks that number against three possibilities. If the number is divisible by 3, it should print fizz, if its divisible by 5 it should print buzz, and if its divisible by 3 and 5 it should print fizzbuzz. It should do nothing if none of those conditions are met.

I need help with this.

Answer 1

#!/usr/bin/perl6
# your code goes here
use strict;
use warnings;
my $i = <STDIN>;
if ( $i % 3 == 0 && $i % 5 == 0 ) { print 'fizzbuzz' }
elsif ( $i % 3 == 0 ) { print 'fizz' }
elsif ( $i % 5 == 0 ) { print 'buzz' }
print "\n";