Kansai.pmã§ã³ã«ã¼ãã³ã«ã¤ãã¦çºè¡¨ãã¦ãã - ã¯ãã¹ã«ã£ã ? ã¿ããåºã¦ãã®ã§ ç¶: Rubyã®FiberãPerlã§ã - Yappo::ã¿ã¯ã· ã®ãæ¸ãæãã use strict; use warnings; { package Itrator; use Fiber; sub new { my($class, @list) = @_; bless { list => \@list, coro => undef }, $class; } sub each { my($self, $code) = @_; for my $val (@{ $self->{list} }) { $code->($val); } } sub get { my $self = shift; $self->{coro} ||= Fiber->new(sub { $self->each(sub { $s
{{#tags}}- {{label}}
{{/tags}}