com.github.dakusui.logias.lisp.func.util.calc.And Maven / Gradle / Ivy

Go to download

Show more of this group Show more artifacts with this name
Show all versions of logiaslisp Show documentation

A JSON based Lisp processor.

The newest version!

package com.github.dakusui.logias.lisp.func.util.calc;

import com.github.dakusui.logias.lisp.Context;
import com.github.dakusui.logias.lisp.func.Func;
import com.github.dakusui.logias.lisp.s.Sexp;

public class And extends Func {

	@Override
	public Sexp invoke(Context context, Sexp... params) {
		for (Sexp s : params) {
			if (eval(context, s) == Sexp.nil) {
				return Sexp.nil;
			}
		}
		return Sexp.T;
	}
	
	@Override
	public boolean evaluatesLazily() {
		return true;
	}	
}