Skip to content

Instantly share code, notes, and snippets.

@karupanerura
Created November 25, 2011 09:46
Show Gist options
  • Save karupanerura/1393159 to your computer and use it in GitHub Desktop.
Save karupanerura/1393159 to your computer and use it in GitHub Desktop.
焼肉たべたい
package karupanerura;
# is me!
package main;
use strict;
use warnings;
use Meat;
use Beef;
use Hormones;
use Grill;
use List::MoreUtils qw/shuffle/;
my @menu = qw/Meat Beef Hormones/;
until (karupanerura->is_full) {
my $namaniku = [suffle(@menu)]->[0]->new;
my $yakiniku = Grill->run(namaniku => $namaniku);
karupanerura->eat($yakiniku);
}
exit('yakiniku');
@karupanerura
Copy link
Author

29! 29!
patches wellcome!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment