Re^2: Perl can do it, take 1 (sentence generation)

in reply to Re: Perl can do it, take 1 (sentence generation)
in thread Perl can do it, take 1 (sentence generation)

Here is my version of the generate sub. Won't probably run on Pugs right now.

use v6;

sub generate {
    when List  { .map:{ generate $_ } }
    when %dict { generate %dict{$_}.pick }
    default    { [ $phrase ] }
}
[download]

For some reason I'm assuming that $_ is aliased to the first argument of a sub when there is no signature specified. If that's wrong, please tell me!

Comment on Re^2: Perl can do it, take 1 (sentence generation) Select or Download Code

In Section Meditations