Skip to content

Instantly share code, notes, and snippets.

#!/usr/bin/perl6
use v6;
use Test;
=begin pod
Task 38.2
Word Game
#!/usr/bin/perl6
use v6;
use Test;
=begin pod
Task 38.1
#!/usr/bin/perl6
use v6;
use Test;
=begin pod
Task 37.1
Write a script to calculate the total number of weekdays (Mon-Fri) in each month of the year 2019.
#!/usr/bin/perl6
use v6;
use Test;
=begin pod
Task 36.1
Write a program to validate given Vehicle Identification Number (VIN). For more information, please checkout
#!/usr/bin/perl6
use v6;
use Test;
=begin pod
Task 35.1
Write a program to encode text into binary encoded morse code.
#!/usr/bin/perl6
use v6;
use Test;
=begin pod
Task 34.1
Write a program that demonstrates using hash slices and/or array slices.
#!/usr/bin/perl6
use v6;
use Test;
=begin pod
Task 34.1
Write a program that demonstrates using hash slices and/or array slices.
#!/usr/bin/perl6
use v6;
use Test;
=begin pod
Task 33.1
Count Letters (A..Z)
#!/usr/bin/perl6
use v6;
use Test;
# 32.1 Create a script that either reads standard input or one or more files specified on the command-line.
# Count the number of times and then print a summary, sorted by the count of each entry.
#
# So with the following input in file example.txt
#
#!/usr/bin/perl6
use v6;
use Test;
# 31.1 Create a function to check divide by zero error without checking if the denominator is zero.
sub Is_DivByZero($a,$b){
my Bool $result=False;
my $misc;