`
deepfuture
  • 浏览: 4411342 次
  • 性别: Icon_minigender_1
  • 来自: 湛江
博客专栏
073ec2a9-85b7-3ebf-a3bb-c6361e6c6f64
SQLite源码剖析
浏览量:80123
1591c4b8-62f1-3d3e-9551-25c77465da96
WIN32汇编语言学习应用...
浏览量:70324
F5390db6-59dd-338f-ba18-4e93943ff06a
神奇的perl
浏览量:103580
Dac44363-8a80-3836-99aa-f7b7780fa6e2
lucene等搜索引擎解析...
浏览量:286527
Ec49a563-4109-3c69-9c83-8f6d068ba113
深入lucene3.5源码...
浏览量:15043
9b99bfc2-19c2-3346-9100-7f8879c731ce
VB.NET并行与分布式编...
浏览量:67778
B1db2af3-06b3-35bb-ac08-59ff2d1324b4
silverlight 5...
浏览量:32284
4a56b548-ab3d-35af-a984-e0781d142c23
算法下午茶系列
浏览量:46072
社区版块
存档分类
最新评论
文章列表

lisp-复数

* (+ #C(28 10) 22) #C(50 10) * (+ #C(28 10) #C(22 16)) #C(50 26) * (+ #c(28 10) #c(22 16)) #C(50 26) * (let ((a #c(28 10)) (b #c(22 16))) (* a b)) #C(456 668)   #C(28 10) 28是实部,10是虚部
* (flet ((add (a b) (+ a b))) (add 3 7)) 10 * (let ((ja 5) (jb 1)) (* ja jb)) 5 * (flet ((add (a b) (+ a b)) (sub (a b) (- a b))) (sub 12 (add 3 7))) 2  let定义局部变量 flet定义局部函数

lisp强大

以前就听说过Lisp被很多人认为是世界上最好的语言 ,但是它是那么的古老,这种言论很可能来自于不能进化到学习Ruby,Python的老古董,所以其实也没有太在意。Lisp(这里特指Common lisp,下同)1978年被设计完成,是个多么古老的语言啊。。。。却总是不停的听到太多的Lisp的好话,总是感觉有些难以相信,BS说,"一个新设计的语言不比老的好,那新语言的设计者是要被打屁股的 ",假如Lisp还是世界上最好的语言,那么从BS自己,到James Gosling到Anders到Guido van Rossum 不都要被打屁股啊? 你说我能轻易相信吗?“如果我们把流行的 ...
0[2] (defun mystart() (defparameter *small* 1)(defparameter *big* 100)(guess-number)) 0[3] (mystart) ; No debug variables for current frame: using EVAL instead of EVAL-IN-FRAME. 50 0[3] (bigger) ; No debug variables for current frame: using EVAL instead of EVAL-IN-FRAME. 75 0[3] (bigger) ; N ...
prezi试用版的破解方法 (2012-05-02 21:11:08) 1.从网上找个prezi试用版,下载后安装即可,但只有30天的试用期。 2.破解的方法主要是突破试用期的限制。 3.下载一个cracklock小软件,可从网上免费下载。 4.下载后安装cracklock,由开始菜单打开cracklock manager,见下图。 5. 打开后左键双击add programe,从prezi的安装目录找到prezidesktop3可执行文件(扩展名是.exe)(一般在C盘program files下面),点击“打开” 
#!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; #!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; my $a=rand(1); my $b=rand(1); my $c=1; my $look=0.1; my $lookx=0.1; my $looky=0.1; my $ispress= ...
#!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; #!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; my $a=rand(1); my $b=rand(1); my $c=rand(1); my $look=0.1; my $lookx=0.1; my $looky=0.1; glut ...
  #!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; my $a=1; my $b=0; my $c=0; glutInit(); glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE); glutInitWindowPosition(100,100); glutInitWindowSize(400,400); glutCreateWindow("my OpenGL program" ...
  #!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; glutInit(); glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE); glutInitWindowPosition(100,100); glutInitWindowSize(400,400); glutCreateWindow("my OpenGL program"); glClearColor(0,0,100,25 ...
#!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; my @mypoints; @mypoints=([0,0,0],[0,50,0],[50,0,0],[50,50,0],[0,0,50],[0,50,50],[50,0,50],[50,50,50]); glutInit(); glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE); glutInitWindowPosition(100,100); glut ...
#!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; glutInit(); glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE); glutInitWindowPosition(100,100); glutInitWindowSize(400,400); glutCreateWindow("my OpenGL program"); glClearColor(0,0,0,255); glC ...
用 X3D 替代 VRML 2.0 的十个理由 最后更新 Jan 2005   翻译 meng yiqi  最后更新 March 2004   相对 VRML,X3D 是一个更成熟的标准,作者们可以用 X3D 来达到他们所需的目标。人们也许会问,为什么使用支持 XML 的 X3D 开发,是比继续使 ...
#!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; glutInit(); glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE); glutInitWindowPosition(100,100); glutInitWindowSize(400,400); glutCreateWindow("my OpenGL program"); glClearColor(0,0,0,255); glCl ...
Comprehensive Perl Archive Network是Perl资源的宝库。Perl模块资源的管理工具cpan, 则是安装Perl包时的必不可以的强大工具。但很多Perl模块常常需要依赖很多其它模块才能正常运行。cpan程序的默认设置是需要手工确认这些依赖模块的安装,因此安装起来十分繁琐,费时。经过查找相关的资料,找到了cpan自动安装依赖模块的配置选项。进行如下设置,就可以使cpan程序不需要人工干预就能自动安装依赖模块了。 方法一 在命令行执行如下命令: cpano conf prerequisites_policy followo conf commitexit 方 ...
#!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; glutInit(); glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE); glutInitWindowPosition(100,100); glutInitWindowSize(400,400); glutCreateWindow("my OpenGL program"); glClearColor(0,0,0,255); glCl ...
Global site tag (gtag.js) - Google Analytics