При разборе списков из S-выражений, написал сегодня функцию вида:

let xxx = function
| hd::tl -> Some (hd,tl)
| [] -> None

Но как правильно её обозвать, не придумал. Может хаскелисты в курсе,
чем-то мне она их монады напоминает.

Наверное не будет преувеличением сказать, что под влиянием Запада ( Read more... )

Кажется придумал осмысленное применение ленивых вычислений.

let graph_home =
let get () =
let dir = Params.get_param "graph-home" in
if not (Sys.file_exists dir) then
System.make_directory dir;
dir in
lazy (get ())
...
Из плюсов ( Read more... )

В последнее время на работе развелось jvm-быдлокодеров, которые даже не догадываются, что JVM не умеет память в операционную систему отдавать ( Read more... )

Click to view

Усовершенствовал себе Emacs, а то он, сволочь такая, отказывался компилировать
JavaScript. В смысле запускать compile-command при редактировании *.js.

Отключаю отключку emacs с C-x C-c (бывало случайно нажимал):

(global-unset-key "\C-x\C-c")
(global-set-key "\C-c\C-q" 'save-buffers-kill-emacs)
Ставим запуск компиляции на C-x C-c, без выбора ( Read more... )

Сделал небольшую утилиту, которая помогает делать окружение для
отладки модулей динамический, без предварительной компиляции
модулей.

$ cat /usr/local/bin/ocaml-env ( Read more... )

Хотел поюзать fold, но как-то он в задачу не вписывался,
сделал модифицированный fold, который можно при необходимости
прервать, путем возврата в качестве остатка не реального
остатка, а какой-нибудь пустышки:

(define (gfold f a l)
(if (null? l) a
(let ((x (f a (car l) (cdr l))))
(gfold f
(car x)
(cdr x)))))
В моём случае ( Read more... )

Что-то с нормализацией дат в racket/date как-то тоскливо:

> (date->seconds (date* 7 8 1 17 6 2014 2 167 #f 14400 0 "MSK ( Read more... )

Занимаюсь тут все выходые чем-то странным:

(define (mktime year mon mday hour min sec ( Read more... )