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

Here is my perl6 port of your code. I had to work around a thing with given/when...unless they fixed it and i didn't notice yet.

use v6;

my %dict =
(
  sentence     => [[qw/ noun_phrase verb_phrase /]],
  noun_phrase  => [[qw/ Article Noun /]],
  verb_phrase  => [[qw/ Verb noun_phrase /]],
  Article      => [qw/ the a /],
  Noun         => [qw/ man ball woman table/],
  Verb         => [qw/ hit took saw liked /]
);

sub generate ($phrase) {
 given $phrase {
    when .does(List) { return $phrase.map:{generate($_)} }
    if (defined %dict.{$_}) { return generate( %dict.{$_}.pick) }
    else { return  [$phrase] }
 }
}

sub gen_sentence () { generate("sentence").join(" ").say };
gen_sentence for 1..5;

[download]

___________
Eric Hodges

Replies are listed 'Best First'.
Re^2: Perl can do it, take 1 (sentence generation)
by spurperl (Priest) on Jun 19, 2005 at 16:36 UTC
    Can you please explain what .does(List) means ? I understand intuitively that it asks whether $phrase is a list, but how does it work, exactly ?
[reply]
[d/l]

      As far as I know that is all there is to tell. ;) The . by itself acts on the topic ($_) So that is the same as $_.does(List). My understanding is that does is checking the roles of the object it is called on. Evnetualy (when pugs gets more mature) we will be able to do. when List {} and it will DWIM, hopefully. BTW the given $phrase makes $phrase the current topic.


      ___________
      Eric Hodges
[reply]
[d/l]
[select]
        OK, thanks - I figured most of it out after posting by reading the apocalypse / exegesis on objects.

        Frankly, the syntax .does(List) doesn't feel good to me, so I'm glad you're saying we'll eventually be able to just say when List. Is the latter legal Perl 6 and you didn't use it just because you wanted a working pugs-compilable code ?

[reply]
Re^2: Perl can do it, take 1 (sentence generation)
by wolv (Pilgrim) on Jun 23, 2005 at 20:02 UTC
    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!
[reply]
[d/l]
[select]

In Section Meditations