Data commit

Task/Echo-server/Raku/echo-server-1.raku

@@ -0,0 +1,15 @@
+my $socket = IO::Socket::INET.new:
+    :localhost<localhost>,
+    :localport<12321>,
+    :listen;
+
+while $socket.accept -> $conn {
+    say "Accepted connection";
+    start {
+        while $conn.recv -> $stuff {
+            say "Echoing $stuff";
+            $conn.print($stuff);
+        }
+        $conn.close;
+    }
+}

Task/Echo-server/Raku/echo-server-2.raku

@@ -0,0 +1,7 @@
+react {
+    whenever IO::Socket::Async.listen('0.0.0.0', 12321) -> $conn {
+        whenever $conn.Supply.lines -> $line {
+            $conn.print( "$line\n" ) ;
+        }
+    }
+}