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

更新时间：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需再刷新一下页面才能执行]

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

相关文章

BootStrap Table复选框默认选中功能的实现代码(从数据库获取到对应的状态进行判断是否为选中状态)
本文通过实例代码给大家介绍了BootStrap Table复选框默认选中功能(从数据库获取到对应的状态进行判断是否为选中状态)，代码简单易懂，非常不错，具有参考借鉴价值，需要的的朋友参考下吧
2017-07-07
Webpack 5新特性学习与性能优化实践
Webpack 5的新特性和改进为前端开发者提供了更强大、更高效的构建工具,通过内置的持久性缓存插件、优化的默认配置、Webpack CLI的改进等,Webpack 5使得构建过程更加简化,性能更加优越
2024-05-05
JavaScript中var、let、const区别浅析
这篇文章主要介绍了JavaScript中var、let、const区别浅析,需要的朋友可以参考下
2018-06-06
SSM+layUI 根据登录信息显示不同的页面方法
今天小编就为大家分享一篇SSM+layUI 根据登录信息显示不同的页面方法，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧
2019-09-09
javascript字符串替换及字符串分割示例代码
javascript中的字符串替换及字符串分割在某些情况下还是比较实用的，下面有个不错的示例，感兴趣的朋友可以参考下
2013-12-12
TypeScript基本类型之typeof和keyof详解
typeof 在js中typeof是检查类型的,在ts中也有这个功能,下面这篇文章主要给大家介绍了关于TypeScript基本类型之typeof和keyof的相关资料,需要的朋友可以参考下
2023-04-04
JS中的Map对象用法及说明
这篇文章主要介绍了JS中的Map对象用法及说明，具有很好的参考价值，希望对大家有所帮助。如有错误或未考虑完全的地方，望不吝赐教
2023-02-02
Javascript实现关联数据(Linked Data)查询及注意细节
DBpedia对Wikipedia的数据变成Linked Data形式，使得机器也能读懂并自由获得这些数据;本文的主要目的是利用Javascript从DBpedia中获取我们想要的数据,感兴趣的朋友可以参考下，希望可以帮助到你
2013-02-02
js用拖动滑块来控制图片大小的方法
这篇文章主要介绍了js用拖动滑块来控制图片大小的方法,实例分析了javascript使用鼠标事件的技巧,具有一定参考借鉴价值,需要的朋友可以参考下
2015-02-02
前端进阶之教你利用javascript存储函数
这篇文章主要给大家介绍了关于利用javascript存储函数的相关资料,文中通过实例代码介绍的非常详细,对大家学习或者使用js具有一定的参考学习价值,需要的朋友可以参考下
2021-11-11

最新评论