极致之美——百行代码实现全新智能语言第6/6页

更新时间：2007年03月14日 00:00:00 作者：

<script> NIL = []; Array.prototype.toEvalString = function() {  if(this.length <= 0) return "NIL";  var str = "";  for (var i = 0; i < this.length; i++)  {   if(this[i] instanceof Array)    str += "," + this[i].toEvalString();   else str += "," + this[i];  }  return "[" + str.slice(1) + "]"; }; (function(){    LispScript = {   Run : run  };    function run(code)  {   if(code instanceof Array)   {    var elements = new Array();    for (var i = 0; i < code.length; i++)    {     code[i] = run(code[i]); //递归向下读取     if(code[i] instanceof Function)  //解析表达式     {      if(code[i].length <= 0) //无参函数可省略[]直接以函数名称调用      {       code[i] = code[i].call(null);      }      else if(i == 0)  //调用带参数的函数[funcall,args...]      {       return code[i].apply(null, code.slice(1));      }     }    }    return code;   }   return Element(code);  }; })(); function Assert(msg, cond) {  if(cond)   return true;  else   {    alert(msg);    throw new Error(msg);   } }; function Element(arg) {  if(arg == null)   return [];  else if(arg instanceof Function && arg.length <= 0)   return arg.call(null);  else   return arg; }; __funList = new Array(); ///////////////// quote = _ = function(args) {  if(arguments.length < 1)   return [];  else if(arguments.length >= 1)  {   return arguments[0];  } }; //[atom,x]返回原子true如果x的值是一个原子或是空表,否则返回[]. 在Lisp中我们按惯例用原子true表示真, 而用空表表示假. atom = function(arg) {  var tmp = LispScript.Run(arg); //先对参数求值  if(!(tmp instanceof Array) || tmp.length <= 0)   return true;  else   return []; }; //[eq,x,y]返回t如果x和y的值是同一个原子或都是空表, 否则返回[]. equal = eq = function(arg1, arg2) {  var tmp1 = LispScript.Run(arg1);  var tmp2 = LispScript.Run(arg2);   //先对参数求值  if(!(tmp1 instanceof Array) && !(tmp2 instanceof Array) &&    tmp1.toString() == tmp2.toString() ||    (tmp1 instanceof Function) && (tmp2 instanceof Function) && tmp1.toString() == tmp2.toString() ||   (tmp1 instanceof Array) && (tmp2 instanceof Array) && (tmp1.length == 0) && (tmp2.length == 0))   return true;  else   return []; }; //[car,x]期望x的值是一个表并且返回x的第一个元素. car = function(arg) {  var tmp = LispScript.Run(arg);  //先对参数求值  if(tmp instanceof Array && tmp.length > 0)   return tmp[0];  else   return []; }; //[cdr,x]期望x的值是一个表并且返回x的第一个元素之后的所有元素. cdr = function(arg) {  var tmp = LispScript.Run(arg);  //先对参数求值  if(tmp instanceof Array && tmp.length > 0)   return tmp.slice(1);  else   return [];  }; //[cons,x,y]期望y的值是一个表并且返回一个新表,它的第一个元素是x的值, 后面跟着y的值的各个元素. cons = function(arg1, arg2) {  var tmp1 = LispScript.Run(arg1);  var tmp2 = LispScript.Run(arg2);   //先对参数求值  if(tmp2 instanceof Array)  {   var list = new Array();   list.push(tmp1);   return list.concat(tmp2);  }  else   return []; }; /* [cond [...] ...[...]] 的求值规则如下. p表达式依次求值直到有一个返回t. 如果能找到这样的p表达式,相应的e表达式的值作为整个cond表达式的返回值. */ cond = function(args) {  for (var i = 0; i < arguments.length; i++)  {   if(arguments[i] instanceof Array)   {    var cond = LispScript.Run(arguments[i][0]);  //先对参数求值    //alert(cond);    if(cond == true && arguments[i][1] != null)     return LispScript.Run(arguments[i][1]);   }  }  return []; }; //则称为函数调用.它的值计算如下.每一个表达式先求值,然后e再求值.在e的求值过程中,每个出现在e中的的值是相应的在最近一次的函数调用中的值. lambda = function(args, code) {  if(code instanceof Array)  {   var fun = new Function(args,     "for(var i = 0; i < arguments.length; i++) arguments[i] = LispScript.Run(arguments[i]);return LispScript.Run("+code.toEvalString()+");");   var globalFuncName = __funList.pop();      fun._funName = globalFuncName;   if(globalFuncName != null)    self[globalFuncName] = fun;   return fun;  }  return []; }; </script> <script>     var prompt = '>';     function initPrompt()     {         if(cmd.value == '')             cmd.value = prompt;     }     function runLastCmd()     {         if(window.event.keyCode == 13)         {             window.event.returnValue = false;                          var idx = cmd.value.lastIndexOf('\n') + 1;             idx += prompt.length;             var strCmd = cmd.value.substr(idx);             var output = '';             try             {                 var lisp = eval(strCmd);                 if(lisp instanceof Array)                 {                      output = LispScript.Run(lisp);                 }                 else                 {                     output = '未知命令';                 }             }             catch(e)             {                 output = '语法错误';             }             if(output instanceof Array)             {                 output = '[' + output + ']';             }             cmd.value += '\n' + output + '\n' + prompt;         }              } </script> <textarea id=cmd style="width:600px;height:600px" onkeydown="runLastCmd()" onclick="initPrompt()"> </textarea>

[Ctrl+A 全选注:引入外部Js需再刷新一下页面才能执行]

上一页 1 2 3 4 56阅读全文

极致之美——百行代码实现全新智能语言

相关文章

微信小程序的数据存储与Django等服务发送请求讲解
这篇文章主要为大家介绍了微信小程序的数据存储与Django等服务发送请求讲解，有需要的朋友可以借鉴参考下，希望能够有所帮助，祝大家多多进步，早日升职加薪
2022-04-04
详解JavaScript的表达式与运算符
这篇文章主要介绍了JavaScript的表达式与运算符，需要的朋友可以参考下
2015-11-11
JS比较两个数值的大小实例
下面小编就为大家带来一篇JS比较两个数值的大小实例。小编觉得挺不错的，现在就分享给大家，也给大家做个参考。一起跟随小编过来看看吧
2016-11-11
js获取div高度的代码
不错的获取div高度的代码，主要是方便测试一些信息，用到了javascript的offsetHeight属性
2008-08-08
Web安全测试之XSS实例讲解
本文主要介绍Web安全测试之XSS,这里详细整理了测试XSS的资料，并附示例代码和详细讲解，有需要的小伙伴可以参考下
2016-08-08
js中根据字数截取字符串，不能截断url
给一个文字，对输出的文字进行截取，保留400个字符,其中对url的保留比较麻烦，尤其是有两个相同url时不能采用indexOf获取其字符位置
2012-01-01
AJAX XMLHttpRequest对象创建使用详解
这篇文章主要介绍了AJAX XMLHttpRequest对象创建使用详解,文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下
2020-08-08
利用JS如何计算字符串所占字节数示例代码
因为最近项目有个需求要用js计算一串字符串写入到localStorage里所占的内存，所以便有了这篇文章，下面这篇文章主要给大家介绍了关于利用JS如何计算字符串所占字节数的相关资料，需要的朋友可以参考下。
2017-09-09
js实现拖拽效果（构造函数）
这篇文章主要介绍了js利用构造函数实现拖拽效果
2015-12-12
javascript之querySelector和querySelectorAll使用说明
其实关于querySelector和querySelectorAll的介绍说明很多,在此主要是做个记录
2011-10-10

最新评论