Set :: FA.

ÀÌ»ê À¯ÇÑ ¿ÀÅä Å׶ó ŸÀÇ ÁýÇÕ
Áö±Ý ´Ù¿î·Îµå

Set :: FA. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °Ô½ÃÀÚ À̸§:
  • Ron Savage
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~rsavage/

Set :: FA. ű×


Set :: FA. ¼³¸í

°³º° À¯ÇÑ ¿ÀÅä Å׶ó ŸÀÇ ÁýÇÕ SET :: FA´Â DFAS ¼¼Æ®¸¦ Á¤ÀÇÇÏ°í ½ÇÇàÇÏ´Â ¸ÞÄ¿´ÏÁòÀ» Á¦°øÇÏ´Â PERL ¸ðµâÀÔ´Ï´Ù. Synopsis #! / usr / bin / perlÀ» »ç¿ëÇϽʽÿÀ. °æ°í¸¦ »ç¿ëÇϽʽÿÀ. Set :: FA; SET :: FA :: ¿ä¼Ò¸¦ »ç¿ëÇϽʽÿÀ. # ----------------------- my (@a) = ¸Ê {set :: fa :: ¿ä¼Ò -> »õ (¼ö¶ô => 'ping', id => "a. $ _", start => 'ping', transitions => , , ,)} (0 .. 2); my (@b) = map {set :: fa :: element -> new (accepting => ,),)} (0 .. 4); MY ($ set) = set :: fa -> new (@a, @b); MY ($ sub_a) = $ set -> ¼ö¶ô ( 'aaabbaaabdogbbbbbbababa'); ³» ($ sub_b) = $ set -> final; $ SUB_A : ', $ SUB_A -> Å©±â'(±â´ë 3)¸¦ ÀμâÇϽʽÿÀ. ','@aÀÇ Å©±â : ', ½ºÄ®¶ó @A,'(±â´ë 3). ','$ sub_bÀÇ Å©±â : ', $ sub_b -> Å©±â'(±â´ë 5). ',' '@bÀÇ Å©±â :', scalar @b '(¿¹»ó 5). ', "\ n", ¿ä±¸ »çÇ× : ¡¤ Perl.


Set :: FA. °ü·Ã ¼ÒÇÁÆ®¿þ¾î