4 ms·
here’s some raku lang in welsh… https://github.com/finanalyst/rakuast-L10N-CY https://github.com/finanalyst/rakuast-L10N-CY fy $choice; fy $continue; fy
by librasteve 2y ago
here’s some raku lang in welsh…
https://github.com/finanalyst/rakuast-L10N-CY https://github.com/finanalyst/rakuast-L10N-CY
fy $choice;
fy $continue;
fy @bad = <damn stupid nutcase>;
ailadrodd {
$choice = prydlon "Type something, like a number, or a string: ";
dywedyd "You typed in ｢" ~ ($choice ~~ unrhyw(@bad) ?? "*" x $choice.golosg !! $choice) ~ "｣";
a-roddwyd $choice {
pryd "dragon" {
dywedyd "which is 'draig' in Welsh"
}
pryd unrhyw(@bad) {
dywedyd "wash your mouth with soap"
}
pryd IntStr {
dywedyd "which evaluates to an integer ", $choice
}
pryd RatStr {
dywedyd "which evaluates to a rational number ", $choice
}
rhagosodedig {
dywedyd "which does not evaluate to a number "
}
}
$continue = prydlon "Try again? If not type N: "
} hyd $continue eq unrhyw(<N n>)
- gorkish 2y agoAnd for OG Perl, Damian Conway gives us classical Latin! use Lingua::Romana::Perligata; adnota Illud Cribrum Eratothenis maximum tum val inquementum tum biguttam tum stadium egresso scribe. da meo maximo vestibulo perlegementum. maximum comementum tum novumversum egresso scribe. meis listis conscribementa II tum maximum da. dum damentum nexto listis decapitamentum fac sic lista sic hoc tum nextum recidementum cis vannementa listis da. dictum sic deinde cis tum biguttam tum stadium tum cum nextum comementum tum novumversum scribe egresso. cis