Skip to content

Instantly share code, notes, and snippets.

@jkramer jkramer/ö.p6
Created Jan 29, 2018

Embed
What would you like to do?
Ö
#!/usr/bin/env perl6
$*IN.slurp.&talk;
sub talk(Str $_) {
my @ös = |('Ö','ö') xx *;
for .lines {
for .comb.produce(&[~]) {
print "\r", @ös.shift, ' ', $_;
sleep ((1..4) X/ 10).pick;
}
print "\r \n";
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.