ãããã¯ããªãcall/ccãããªããã£ããªã®ããã«é¢ããä¸èå¯ (Shiro: ããªãã§ãç¶ç¶ãã«å ¥ããããã¨æã£ã¦ããã¿ã ãã©ã ãã£ã¡ããã¤æ¸ãããããããã®ã§ãå¿ããªãããã«ãã£ã¡ã«ã¾ã¨ãã¨ã) (話ã®æµããããã®ã§ã誤ãã®ä¿®æ£ä»¥å¤ã®ã³ã¡ã³ãã¯éä¸ã§ã¯ãªããä¸çªä¸ã«ãé¡ããã¾ã) returnã¯ã©ãã ? Aliceã¯ããªã¹ãlisã¨è¿°èªæç¶ãpredãåããlisã®åè¦ç´ ã«é ã«predãé©ç¨ãã¦ã predãçã®å¤ãè¿ãããç´ã¡ã«ãã®è¦ç´ ãè¿ããããªé¢æ°findã æ¸ããã¨ãèããã (findã¯ä¾¿å©ãªã®ã§ãå®ã¯srfi-1ã«å®ç¾©ããã¦ããã©ã Aliceã¯ã¾ãèªåã®åå¼·ã®ããã«æ¸ãã¦ã¿ããã¨ã«ããã¨æããã)ã Aliceã¯Perlãªãè¯ãç¥ã£ã¦ãããPerlãªããããªæãã§æ¸ããã¯ãã sub find { ($pred, $lis) = @_; foreach $elt (@
{{#tags}}- {{label}}
{{/tags}}