ch2 done. Skipped math stuff
This commit is contained in:
parent
dc0ce96f2a
commit
55b2d1d21f
5
ch2/ex2-1.raku
Normal file
5
ch2/ex2-1.raku
Normal file
|
@ -0,0 +1,5 @@
|
||||||
|
# create both versions of the "Hello Perl 6" program, a one line version and MAIN version
|
||||||
|
say 'Hello Raku';
|
||||||
|
sub MAIN {
|
||||||
|
say 'Hello Perl 6!';
|
||||||
|
}
|
9
ch2/ex2-11.raku
Normal file
9
ch2/ex2-11.raku
Normal file
|
@ -0,0 +1,9 @@
|
||||||
|
# fizzbuzz
|
||||||
|
# Multiples of three output fizz, multiple sof five output buzz, and multiples of both output fizzbuzz
|
||||||
|
|
||||||
|
for ^100 {
|
||||||
|
print $_ + 1 ~ ":";
|
||||||
|
print "Fizz" if ($_ + 1) %% 3;
|
||||||
|
print "Buzz" if ($_ + 1) %% 5;
|
||||||
|
print "\n";
|
||||||
|
}
|
7
ch2/ex2-2.raku
Normal file
7
ch2/ex2-2.raku
Normal file
|
@ -0,0 +1,7 @@
|
||||||
|
# Create a program that takes three command-line arguments and outputs them on separate, numbered linles. Give two fo the parameters default values
|
||||||
|
|
||||||
|
sub MAIN ($param1, $param2="two", $param3="three") {
|
||||||
|
say "1. PARAM1: $param1";
|
||||||
|
say "2. PARAM2: $param2";
|
||||||
|
say "3. PARAM3: $param3";
|
||||||
|
}
|
6
ch2/ex2-3.raku
Normal file
6
ch2/ex2-3.raku
Normal file
|
@ -0,0 +1,6 @@
|
||||||
|
#Write a program that asks for a name and greets that name. Only prompt for name if an argument isn't supplied
|
||||||
|
|
||||||
|
|
||||||
|
sub MAIN ($name=prompt "wats ur name?\n") {
|
||||||
|
say "ohi $name";
|
||||||
|
}
|
10
ch2/ex2-8.raku
Normal file
10
ch2/ex2-8.raku
Normal file
|
@ -0,0 +1,10 @@
|
||||||
|
# exercise modified to actually test
|
||||||
|
my $sum = 0;
|
||||||
|
for ^10 {
|
||||||
|
put ++$sum;
|
||||||
|
}
|
||||||
|
|
||||||
|
my $sum2 = 0;
|
||||||
|
for ^10 {
|
||||||
|
put $sum2++;
|
||||||
|
}
|
10
ch2/ex2-9.raku
Normal file
10
ch2/ex2-9.raku
Normal file
|
@ -0,0 +1,10 @@
|
||||||
|
|
||||||
|
# Write a looping program to output a customizable multiple
|
||||||
|
sub MAIN ($multiple=3) {
|
||||||
|
loop {
|
||||||
|
state $sum = 0;
|
||||||
|
say $sum;
|
||||||
|
$sum += $multiple;
|
||||||
|
last if $sum > 20;
|
||||||
|
}
|
||||||
|
}
|
Loading…
Reference in a new issue