Skip to content

Instantly share code, notes, and snippets.

@jkramer

jkramer/ö.p6

Created January 29, 2018 11:18
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jkramer/2fa0e1d3fccd527780c77a773c692a46 to your computer and use it in GitHub Desktop.
Save jkramer/2fa0e1d3fccd527780c77a773c692a46 to your computer and use it in GitHub Desktop.
Download ZIP
Ö
Raw
ö.p6
#!/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