2007å¹´04æ24æ¥18:00 ã«ãã´ãªLightweight Languages perl - parseræ¸ããªãgoto ããããæ¬å½ã®æ¬å½ã®æ¬çªã¯ãã¡ãã ã£ããããã 404 Blog Not Found:perl - POO 㨠goto Perl 5ã®gotoã¯ãä»çµã¿ãç解ããä¸ã§ä½¿ãã©ããã誤ããªããã°ãã®ãã¨ãå¼·åãªã®ã§ããã ååã®ä¾ã§ã¯ãããã§ã"One of many ways to do it"ã§ããç¥ããªãã¦ãå°ããªããã¬ãã«ã®ãã®ã§ãã£ããããããä»åã®ä¾ã¯ãgotoããªããã°æ¬å½ã«ãã¤ãã 以ä¸ã®ä¾ãèãã¦ã¿ããã å ¥å: (define (fact n) (if (= n 1) 1 (* n (fact (- n 1))))) åºå: [['define',['fact','n'],['if',['=','n','1'],'1',['*','n',['f
{{#tags}}- {{label}}
{{/tags}}