*racket
На лоре спросили:
/можно ли написать на Racket такую функцию, чтобы внутри неё (в её динамическом окружении) делений на 0 возвращало 0, а не прерывало вычисления/
Короче, да:
(define-syntax-rule (try-or-zero body ...)
(let/cc k (with-handlers ([exn? (λ _ (k 0))])
body ...)))
(define (testl l)
(if (null? ... more →
настало время факториалов.
--------------------------
мемоизация на ракете.
nothing special.
#lang racket
; replace define with a memoized version
(define-syntax define-memoized
(syntax-rules ()
[(_ (f args ...) bodies ...)
(define f
; store the cache as a hash of args => result
(let ([results ... more →
Хорошая видяшка про racket с презентацией.
http://www.infoq.com/presentations/Racke...
Короче, хотел распараллелить свой костылерейтрейсер на future-сах.
Соснул: http://ompldr.org/vaGpiaQ
Примитив values лочит поток.
Тут короче понадобилось заюзать мне binary heap в racket и захотел я это сделать с использованием стандартных схем итерации через for-iterations.
Однако текущая binary heap не реализует нужный интерфейс (stream?).
Поэтому кое-чего нужно доопределить. К счастью, в racket это сделать достаточно просто.
Необходимо ... more →
Собрал racket-5.3.1 под текущий debian testing
Не знаю зачем выкладываю, вдруг кому понадобится.
http://ompldr.org/vZ3lkMQ
Встречайте феерическое NENUZHNO.
рейтресер на ракете.
https://github.com/4DA/racktracer/blob/m...
Фичи: никаких фич, только сферы, только ортогональная проекция, только хардкор.
Освещение, прозрачность, тени? we don't need them!
Плюс еще дико тормозит.
Зато рендерит в окошечко и не надо геморроиться с ... more →
/Шаг за пределы хаскеля — и все, туши свет, "не вижу, не слышу, не знаю и знать не хочу"./
http://xeno-by.livejournal.com/77979.htm...
Какое емкое описание всего треда.
*racket is used by:
4DA
4da
4da