Using a speech engine to highlight words: Difference between revisions
Content added Content deleted
(added Raku programming solution) |
|||
Line 228: | Line 228: | ||
main()</lang> |
main()</lang> |
||
=={{header|Raku}}== |
|||
{{trans|Go}} |
|||
<lang perl6># 20200826 Raku programming solution |
|||
my \s = "Actions speak louder than words."; |
|||
my \prev = $ = ""; |
|||
my \prevLen = $ = 0; |
|||
my \bs = $ = ""; |
|||
for s.split(' ', :skip-empty) { |
|||
run "/usr/bin/espeak", $_ or die; |
|||
bs = "\b" x prevLen if prevLen > 0; |
|||
printf "%s%s%s ", bs, prev, $_.uc; |
|||
prev = "$_ "; |
|||
prevLen = $_.chars + 1 |
|||
} |
|||
printf "%s%s\n", "\b" x prevLen, prev;</lang> |
|||
=={{header|REXX}}== |
=={{header|REXX}}== |