Lv3.寻梦者
寒
您需要 登录 才可以下载或查看,没有帐号?注册会员
查看全部评分
使用道具 举报
Lv1.梦旅人
haha.jpg (1.03 MB, 下载次数: 29)
下载附件 保存到相册
2015-2-6 17:35 上传
Lv4.逐梦者
Lv3.寻梦者 (暗夜天使)
精灵族の天使
taroxd 发表于 2015-2-6 11:26 其实就是迭代(我歪楼我自豪) 另外,我更喜欢 Ruby 版的 Lisp 方言(啥)不就是数不清楚括号么
Lv3.寻梦者 (版主)
…あたしは天使なんかじゃないわ
寒冷魔王 发表于 2015-2-6 11:18 有两个参数的话Lisp也能算了 [fold][/fold]
fact = -> n { iter = -> n, accumulator { n.zero? ? accumulator : iter[n - 1, n * accumulator] } iter[n, 1]}
fact = -> n { iter = -> n, accumulator { n.zero? ? accumulator : iter[n - 1, n * accumulator] } iter[n, 1] }
taroxd 发表于 2015-2-6 11:09 def fact(n) return 1 if n == 0 n * fact(n - 1)
def fact(n) return 1 if n == 0 n * fact(n - 1)end def fact2(n, accumulator = 1) return accumulator if n == 0 fact2(n - 1, n * accumulator)end p fact(4)p fact2(4)
def fact(n) return 1 if n == 0 n * fact(n - 1) end def fact2(n, accumulator = 1) return accumulator if n == 0 fact2(n - 1, n * accumulator) end p fact(4) p fact2(4)
本版积分规则 发表回复
献给最先抵达这片土地的你。参加预注册的用户即可获得。
这里的今天,有我过往努力的见证~
折叠内容标题(非必须)
折叠内容
站长信箱:[email protected]|手机版|小黑屋|无图版|Project1游戏制作
GMT+8, 2026-6-16 04:54
Powered by Discuz! X3.1
© 2001-2013 Comsenz Inc.