lisp
breaksss
sss
展开
-
lisp笔记
Common Lisp 笔记: 由于lisp看起来有点支离破碎的,所以笔记也很乱... 1.hello world: (print "hello world") 只需存为文本文件在终端使用clisp hello就行了... 2.打印1+1... (print (+ 1 1)) 3.将11左移一位 (print (ash 11 1)) 4.将11右移一位原创 2012-04-05 10:06:01 · 543 阅读 · 0 评论 -
写一个函数,有三个参数,判断是否有至少两个true值
(define (twoofthree x y z) (>= (+ x y z) 2)) (twoofthree 0 0 1) (twoofthree 1 1 1) (twoofthree 1 0 0) (twoofthree 1 0 0)原创 2012-04-24 13:36:07 · 719 阅读 · 0 评论 -
写一个函数,参数是三个数,返回较大两个之和
scheme: (define (bigsum a b c) (- (+ a b c) (min a b c))) (bigsum 1 2 3) (bigsum 2 3 3) (bigsum 1 1 3) (bigsum 1 2 1) (bigsum 1 9 3) python: #!/usr/bin/env python def bigsum原创 2012-04-25 12:17:43 · 1514 阅读 · 0 评论 -
sqrt
C: #include #define Zero 1e-6 float mysqrt(int number) { float guess = 1.0f; float quotient = number/guess; float average = (guess + quotient)/2.0; do { guess = average; quotient =转载 2012-04-25 16:04:34 · 517 阅读 · 0 评论 -
Ackermann数
C++: #include using namespace std; long Ackermann(int m,int n); int main() { int loop,i,m,n; cin>>loop; for(i=1;i<=loop;i++) { cin>>m>>n; cout<< Ackermann(m,n)<<end原创 2012-04-26 15:33:26 · 515 阅读 · 0 评论