コード例 #1
0
ファイル: SExpression.java プロジェクト: tomwhite/atomiclisp
 void toS(SExpression s) {
   if (s.isAtom() && !s.printValue.equals("")) {
     sb.append(s.printValue);
     return;
   }
   sb.append('(');
   while (!s.isAtom()) {
     toS(s.car);
     s = s.cdr;
     if (!s.isAtom()) {
       sb.append(' ');
     }
   }
   sb.append(')');
 }
コード例 #2
0
ファイル: SExpression.java プロジェクト: tomwhite/atomiclisp
 public SExpression length() {
   long l = 0;
   SExpression s = this;
   while (!s.isAtom()) {
     l++;
     s = s.cdr();
   }
   return new SExpression(BigInteger.valueOf(l));
 }
コード例 #3
0
ファイル: SExpression.java プロジェクト: tomwhite/atomiclisp
 public SExpression cons(SExpression t) {
   if (t.isAtom() && t != Atom.NIL) {
     return this;
   }
   return new SExpression(this, t);
 }