SuzanneSoy

(defun make-stat-env (params &optional env (position 1) num-env)
  (unless num-env (setq num-env (+ (or (second (first env)) -1) 1)))
  (cond ((endp params)
         env)
        ((eq '&optional (car params))
         `((,(cadr params) ,num-env ,position)
           (,(intern (format nil "~a-P" (cadr params))) ,num-env ,(+ 1 position))
           . ,(make-stat-env (cddr params) env (+ 2 position) num-env)))
        ((eq '&rest (car params))
         (make-stat-env (cdr params) env position num-env))

SuzanneSoy

(defun readfile (name)
  (let ((fd (open name)))
    (prog1
      (cons 'progn
        (loop
          for line = (read fd nil 'eof)
          while (not (eq line 'eof))
          collect line))
      (close fd))))

SuzanneSoy

(defun map-meval (list env)
  (mapcar (lambda (x) (meval x env)) list))

(defun meval-progn (list env)
  (if (endp list)
      nil
      (if (endp (cdr list))
          (meval (car list) env)
          (progn
             (meval (car list) env)

SuzanneSoy

// Without add - 60 instructions instead of 59, and I'd swear it was 58 before I started fiddling with that stuff.

/**
 * MaterialTemplate.usf: Filled in by FHLSLMaterialTranslator::GetMaterialShaderCode for each material being compiled.
 * Copyright 1998-2012 Epic Games, Inc. All Rights Reserved.
 */


/*
	Defined by the C++ code:

SuzanneSoy

Le Chevalier Cendres

Lloyd, c'est un nom du passé, le nom donné par une femme à qui il ne parlait qu'à travers une tombe, nom donné par un père exilé après avoir été mis au supplice du pesant fardeau d'un trop grand nombres d'années, et maintenant de la solitude. Le Chevalier des Cendres ne la connaît point la solitude, et pourtant, il se sent bien peu entouré. Toujours guidé, accompagné, dirigé, demandé par son gardien Yuan, lui-même au service de Martel, le chevalier n'a jamais cessé d'avoir quelqu'un auprès de lui. Yuan la plupart du temps, certes, mais quand ce n'est pas lui, c'est un jeune orphelin, une femme pleine de vengeance, un roi par lequel il se sent trahi, une créature non dotée de parole, un fantôme qui cherche sa lumière, une fillette condamnée, un animal battu, non, le chevalier n'est jamais seul, il y a TOUJOURS quelqu'un pour lui demander quelque chose, toujours une requête, une exigence ou une quête à assouvir, mais pour lui… personne. Il est là pour tous, il essaie d'être disponible à to

SuzanneSoy

#lang racket

(require racket/match)
(require racket/stream)

(define (for-each-cartesian-product lol fn)
  (match lol
    ['() (fn '())]
    [(cons hd tl)
     (for [(elem hd)]