Исправление loz, (текущая версия) :
Никакой проблемы в этом нет:
red>> линия: func [:x :y] [compose [line (make pair! reduce [x/1 x/2]) (make pair! reduce [y/1 y/2])]]
== func [:x :y][compose [line (make pair! reduce [x/1 x/2]) (make ...
red>> линия (5 5) (10 10)
== [line 5x5 10x10]
Засунуть все свои определения можно в init-файл и (пока еще дефолтного, вроде, нет), загружать командой
do load %user.red
Исходная версия loz, :
Никакой проблемы в этом нет:
red>> линия: func [:x :y] [compose [line (make pair! reduce [x/1 x/2]) (make pair! reduce [y/1 y/2])]]
== func [:x :y][compose [line (make pair! reduce [x/1 x/2]) (make ...
red>> линия (5 5) (10 10)
== [line 5x5 10x10]
Засунуть все свои определения можно в init-файл и пока еще дефолтного, вроде, нет), загружать командой
do load %user.red