This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#lang racket | |
(require racket/match) | |
(require racket/stream) | |
(define (for-each-cartesian-product lol fn) | |
(match lol | |
['() (fn '())] | |
[(cons hd tl) | |
(for [(elem hd)] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// 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: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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)))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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)) |