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 · 553 阅读 · 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 · 736 阅读 · 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 pythondef bigsum原创 2012-04-25 12:17:43 · 1527 阅读 · 0 评论 -
sqrt
C:#include #define Zero 1e-6float 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 · 524 阅读 · 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 · 522 阅读 · 0 评论