コード例 #1
0
ファイル: functions.php プロジェクト: nagashima/php-scheme
function SCM_cons($s)
{
    $x = $s->car;
    $y = $s->cdr->car;
    $cons = Cons::new_instance();
    $cons->set_car($x);
    $cons->add_cdr($y);
    return $cons;
}
コード例 #2
0
ファイル: scheme.php プロジェクト: nagashima/php-scheme
 /**
  * リスト評価
  */
 private static function evlis($args, $env)
 {
     $proc = $args;
     $cons = Cons::new_instance();
     while ($proc) {
         $cons->add_cdr(self::evaluate($proc->car, $env));
         $proc = $proc->cdr;
     }
     return $cons->cdr;
 }