ch4 progress

ch4/ex4-1.raku

@@ -0,0 +1,5 @@
+sub MAIN (
+	$word #= string to count the characters of
+) {
+	say $word.chars;
+}

ch4/ex4-2.raku

@@ -0,0 +1,7 @@
+sub MAIN () {
+	my $bjort = "a";	
+	while $bjort {
+	  $bjort = prompt "Provide a string to count the chars";
+	  say $bjort.chars;
+	}
+}

ch4/ex4-3.raku

@@ -0,0 +1,9 @@
+sub MAIN () {
+	loop {
+	my $answer = prompt "Provide string to check for presence of Hamad\n";
+	$answer.contains("Hamad") ?? 
+	say "Hamad detected" !! 
+	say "No Hamad detected";
+	last if $answer.chars == 0;
+	}
+}