¿ÀÅä Åä·Ï ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~tmoertel/
¿ÀÅä Åä·Ï ű×
¿ÀÅä Åä·Ï ¼³¸í
ÀÚµ¿À¸·Î ÇÔ¼öÀÇ Ä«·¹ º¯ÇüÀ» »ý¼ºÇÕ´Ï´Ù AutoCurry´Â ÀÚµ¿À¸·Î ÇÔ¼öÀÇ Ä«·¹ º¯ÇüÀ» »ý¼ºÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. °¢ ±â´É foo¿¡ ´ëÇØ (1)ÀÌ ¸ðµç Àμö°¡ Àü´ÞµÇ´Â Àμö¸¦ ĸóÇÏ°í (2) »õ·Î¿î ÇÔ¼ö¸¦ ¸®ÅÏÇÕ´Ï´Ù. »õ·Î¿î ±â´ÉÀº Àü´Þ µÈ »õ·Î¿î Àμö¸¦ ±â´Ù¸®°í ÀÖÀ¸¸ç ¿ø·¡ Foo¸¦ È£ÃâÇÏ¿© ĸóÇÏ°í »õ·Î¿î Àμö¸¦ ¸ðµÎ Á¦°øÇÕ´Ï´Ù. ½Ä ³ëÇÁ°¡ AutoCurry QW (Foo)¸¦ »ç¿ëÇÕ´Ï´Ù. # pass : ¸ðµç ÇÔ¼ö¸¦ Ä«·¹ÀÇ ¸ðµç ±â´É ÇÏÀ§ foo {print "@_ \ n"; } # currying variant, foo_c, ÀÚµ¿À¸·Î ³» $ hello = foo_c ( "hello,"); $ hello -> ( "¼¼°è!"); # ¾È³çÇϼ¼¿ä, ¼¼°è! $ hello -> ( "ÇÇÃ÷¹ö±×!"); # ¾È³çÇϼ¼¿ä, ÇÇÃ÷¹ö±×! ¿ä±¸ »çÇ× : ¡¤ Perl.
¿ÀÅä Åä·Ï °ü·Ã ¼ÒÇÁÆ®¿þ¾î