Жить не можем без проблем!

парочка вопросов

2012-04-07T13:02:17Z

В процессе изучения Лиспа натыкаюсь на некоторые моменты, с которыми пока не могу разобраться.

1) sbcl & nunion

Введём такой простой код в repl clisp, gcl и sbcl
(setf a '(1 2 3))
(setf b '(4 5 6))
(nunion a b)
; clisp, gcl => '(1 2 3 4 5 6)
; sbcl => '(3 2 1 4 5 6)

А теперь узнаем значение a: в clisp и gcl получим '(1 2 3 4 5 6), а в sbcl -- '(1 4 5 6).

Вопрос: кто неправ? У clisp и gcl результат логичный и ожидаемый, у sbcl -- не пойми что. Если поведение sbcl правильное, то каков смысл в существовании nunion?

HyperSpec ситуацию не прояснил.

2) gcl

Возьмём такую простую программку для проверки:

(defun test (a)
(print a))

(test 6)

$ gcl -f test.lisp

Error: The variable A is unbound.
Fast links are on: do (si::use-fast-links nil) for debugging
Error signalled by SYSTEM::SET-UP-TOP-LEVEL.
Backtrace: PRINT

Если в начало добавить (si::use-fast-links nil), то запускается. Чего он хочет?

Безусловный интерпретатор LISP на LISP

2012-02-27T08:43:57Z

Здравствуйте!

У меня возникла задача, которую можно сформулировать целиком в терминах языка LISP.

Требуется найти такие функции encode, decode и reduce, что

(decode (reduce … (reduce (encode (quote expr))) … ))

для некоторого конечного количества применений reduce является результатом интерпретации выражения expr, в котором можно ограничиться переменными и lambda одного аргумента, причем возвращаемое значение encode — это рекурсивное S-выражение memory с циклами без атомов, а функция reduce должна иметь следующий вид:

(lambda (memory)
	(set (c[ad]*r memory) (c[ad]*r memory))
	(set (c[ad]*r memory) (c[ad]*r memory))

	…

	(set (c[ad]*r memory) (c[ad]*r memory))

	memory
)

Был бы признателен за помощь в решении данной задачи.

Заранее спасибо.

group

2012-02-17T07:22:30Z

Доброго времени суток. Нужна была функция, которая группирует список группами по несколько элементов. Получился не совсем красивый велосипед. Никто из сообщества не поделиться более элегантным решением?

(define (group lst n)
  (define (group2 n2 lst2 group grouped)
    (cond ((<= (length lst2) n2) (append grouped (list lst2)))
           ((= n2 0) (group2 n lst2 '() (append grouped (list (reverse group)))))
           (else (group2 (- n2 1) (mcdr lst2) (cons (car lst2) group) grouped))))
  (group2 n lst '() '() ))

[UPD] Спасибо всем за ответы. В комментариях подали идею сделать более функциональную реализацию. Получилось что-то такое:

(define (split n lst)
  (map (lambda(x)(take n x))
    (append (list lst) (reverse (cdr
      (unfold (lambda(x)(drop n x)) lst empty?) )))))

(define (unfold func init pred)
  (define (unfold2 func init pred res)
    (let ((x (func init)))
      (if (pred init)
      res
  (unfold2 func x pred (cons x res) ))))
  (unfold2 func init pred '()))

(define (drop n lst)
  (if (or (= n 0) (empty? lst))
    lst
    (drop (- n 1) (cdr lst))))

(define (take n lst)
  (define (take2 lst n res)
    (if (or (empty? lst) (= n 0)) (reverse res)
      (take2 (cdr lst) (- n 1) (cons (car lst) res))))
     (take2 lst n '()))

скобки в Scheme

2012-02-13T09:39:36Z

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

(define def1
(let ( (i 0) )
(lambda () (set! i (+ i 1)) i)))

(define (def2)
(let ( (i 0) )
(lambda () (set! i (+ i 1)) i)))

Почему одна из функций увеличивает внутреннюю переменную, а другая все время возвращает один и тот же результат. Я понимаю, что дело в скобках, но не совсем ясно как это работает.

вопрос новичка

2011-03-02T12:00:07Z

В чём принципиальное отличие операторов set, setq и setf?
Как я понял, set связывает имя и значение, setq связывает атом и значение, setf связывает ячейку памяти и значение. Не могли бы вы объяснить мне на каком-нибудь ярком примере разницу в работе и применении на практике этих операторов?

Точность вычислений - числа с плавающей точкой. Экспонента считается неверно?

2011-01-22T23:29:29Z

Нашел баг в библиотеке alexandria: субфакториалы (http://en.wikipedia.org/wiki/Subfactorial) читаются неверно, начиная с 11.

Формула там верная - (floor (/ (+ 1 (factorial n)) (exp 1)))

Но, например, для 11 получается (/ 39916801 2.7182817) => 1.4684571e7, после округления получаем 14684571 вместо 14684570.

Ладно, точность (exp 1) маленькая, пишем явно
(/ 39916801 2.7182818284590452353602874713526624977572470936999595749669), но все равно получаем 1.4684571e7

Python, например, считает точнее:
>>> 39916801 / 2.7182818284590452353602874713526624977572470936999595749669
14684570.445231671

Как это побороть (считать с большей точностью)?

Компилятор - SBCL

P.S. Обнаружил, что экспонента считается неверно.
CL-USER> (exp 1)
2.7182817

А более точное значение - 2.7182818284590452353602874713526624977572470936999595749669..., т.е.должно округляться до 2.7182818

P.P.S
Уже подсказали, что надо писать (exp 1d0), тогда проблемы с точностью решаются.
В общем-то, это и будет фиксом для alexandria:subfactorial, но только для чисел до 18 включительно. Другая формула нужна.

Почему LISP?

2011-01-13T18:23:38Z

Как говорил Ворошилов, вопрос к Знатокам (к знатокам LISP-а в данном случае)! Почему таки LISP? Или, если конкретнее, вопроса три:

Для каких именно задач LISP подходит больше, чем другие языки?
За счёт чего для них он подходит больше?
В чём именно выражается его преимущество?

Если не в лом, приведите, pls, коротенькие иллюстрации на LISP-е (или ссылочку на них). Заранее благодарен!

Исходно данный пост был размещён в сообществе ru_programming, но там Знатоков, способных ответить внятно и по сути, увы, не нашлось :(

Code Review Request: Studious Student

2011-01-11T14:46:12Z

Решил вернуться к изучению Common Lisp, в рамках чего порешал задачки на квалификации Facebook Hacker Cup.

Под катом мое решение задачи "Studious Student".
Прошу посмотреть код и подсказать, что можно сделать лучше (быстрее, проще).

Краткое условие задачи (оригинальное условие сейчас уже не посмотришь, к сожалению):

Во входном файле в первой строке - количество тестов N.
В каждой последующей строке - первое число - количество слов M, далее M разделенных пробелами слов.
Для каждого теста вывести лексикографически минимальную комбинацию всех слов для данного теста.
1 <= N <= 100
1 <= M <= 9
В каждом слове максимум 10 символов.
Лимит времени - 6 минут на весь входной файл (плюс еще надо успеть скопировать и отправить результаты).

Тесты-примеры:

example.in:

5
6 facebook hacker cup for studious students
5 k duz q rc lvraw
5 mybea zdr yubx xe dyroiy
5 jibw ji jp bw jibw
5 uiuy hopji li j dcyi

example.out:

cupfacebookforhackerstudentsstudious
duzklvrawqrc
dyroiymybeaxeyubxzdr
bwjibwjibwjijp
dcyihopjijliuiuy

Алгоритм я использовал очень простой (с небольшой вариацией) - генерация всех перестановок слов, конкатенация слов для этой перестановки и выбор из всех минимальной строки (вариант просто отсортировать исходный список не пройдет, например, для "za z").


;;;; Facebook Hacker Cup - 2011
;;;; Qualification Round
;;;; Studious Student
;;;;
;;;; Sergey Dymchenko <kit1980@gmail.com>
;;;;
;;;; Language: Common Lisp
;;;; Tested with SBCL 1.0.29 - http://www.sbcl.org/
;;;; sbcl --noinform --load lisp-file < in-file > out-file
;;;;
;;;; Libraries used:
;;;; Alexandria - http://common-lisp.net/project/alexandria/
;;;; split-sequence - http://www.cliki.net/SPLIT-SEQUENCE

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require 'alexandria)
  (require 'split-sequence))

(defun minimal-string (s-list)
  (let ((minimal-string (apply #'concatenate 'simple-base-string s-list)) 
        current-string)
    (alexandria:map-permutations 
     #'(lambda (ss) 
         (if (string< (first ss) minimal-string)
             (progn 
               (setf current-string (apply #'concatenate 'simple-base-string ss))
               (if (string< current-string minimal-string)
                   (setf minimal-string current-string))))) 
     s-list :copy nil)
    minimal-string))

(defun case-string-to-list (s)
  (split-sequence:split-sequence 
   #\Space s
   :start 1 :remove-empty-subseqs t))

(defun solve ()
  (let ((n (read)))
    (dotimes (i n) 
      (format t "~a~%" (minimal-string (case-string-to-list (read-line))))))
  0)

(solve)
(quit)

Программа работает, но не очень быстро: на максимальном входном файле (100 тестов по 9 слов по 10 символов в каждом) на моем компьютере считает чуть больше 4 минут. Попытки добавления (declare (optimize (speed 3) (safety 0)) и указания типов ни к чему хорошему не привели...

Сводный псто.

2010-12-07T06:34:02Z

В помощь выбирающему языг:

задан список файлов в командной строке, надо вывести последовательно
1-ю строку из 1-го файла
1-ю строку из 2-го файла
1-ю строку из 3-го файла
...
1-ю строку из N-го файла
2-ю строку из 1-го файла
2-ю строку из 2-го файла
2-ю строку из 3-го файла
...
2-ю строку из N-го файла

ну и так далее, причем количество строк в файлах разное

Haskell:

import System
import Data.List
main = getArgs >>= mapM readFile >>= mapM_ putStrLn . concat . transpose . map (lines)

Perl:

my @fs = map { open(my $fh, $_); $fh } @ARGV;
while( my @fh = grep { not eof($_) } @fs ) { print my $f = readline($_) foreach (@fh) };

Ruby:

fs = ARGV.map { |fn| File.open(fn) }
while fs.map(&:eof?).include? false
   fs.each { |f| puts f.gets unless f.eof? }
end

LISP

(let ((files (mapcar #'open *args*)))                                                
  (loop                                               
    (unless (mapcan (lambda (f &aux (x (read-line f nil)))
                         (when x
                            (format t "~A~%" x) (list x)))
                    files)
	   (return))))

C++

#include 
#include 
#include 
#include 
#include 
using namespace std;

int __cdecl main(int argc, char *argv[]) {
	vector files(argc-1);
	for (int i=1; i<argc; ++i)
		files[i-1].open(argv[i]);
	for (bool hasLine=true; hasLine;) {
		hasLine = false;
		for (size_t i=0; i<files.size(); ++i) {
			string line;
			if (getline(files[i], line)) {
				hasLine = true;
				cout << line << endl;
			}
		}
	}
	return 0;
}

Erlang

компиляция erlc a.erl
запуск: erl -noshell -s a start -- file file1 file2 file3 

-module(a).
-export([start/0]).

start() ->
  output([ FD || {ok, FD} <- [ file:open(X, read) || X <- init:get_plain_arguments() ]]),
  erlang:halt().

output([]) -> ok;
output(List) ->
output(lists:filter(
fun(FD) ->
case io:get_line(FD, "") of
Line when is_list(Line) ->
io:format(Line), true;
_ -> false
end
end,
List
)
).

static void Main(string[] args) {
	for (var files = args.Select(a => new StreamReader(a)).ToList(); 0 < files.Select(f => f.ReadLine()).Where(line => line != null).Count(line => { Console.WriteLine(line); 				return true; }); );
}

Java

package example.io;

import static net.sourceforge.jfunctions.functions.FunctionToolkit.*;
import static net.sourceforge.jfunctions.io.IOToolkit.file;
import static net.sourceforge.jfunctions.structures.StructureToolkit.list;
import net.sourceforge.jfunctions.io.FileLineParser;

public class SortLinesExample {
	
	public static void main(String[] args) {
		for (String line : merge(transform(transform(list(args), file()), FileLineParser.ignoringErrors()))) {
			System.out.println(line);
		}
	}
	
}

Python

import sys  
from itertools import izip_longest as izip, chain, ifilter

def main(args):
    for str in ifilter(lambda x: x is not None,
                       chain.from_iterable( izip( *[open(a) for a in args)] ) ):
        print str.rstrip()

if __name__=='__main__':
    main(sys.argv[1:])

OCaml

open ExtLib
open List
let (>>) f g x = g (f x)
let (|>) x f = f x;;

let fs = Array.to_list Sys.argv |> tl |> map (open_in >> Std.input_lines) in
while fold_left (fun go e -> Option.may print_endline (Enum.get e); go || not (Enum.is_empty e)) false fs do () done

SICP по-русски.

2010-09-17T03:10:00Z

Сделал перевод третьей лекции SICP, пусть здесь повисит, может кому-нибудь будет интересно.

Предыдущие две лекции искать где-то здесь:
http://ztarlitz.livejournal.com/32317.html

INPUT-STREAM-P, STREAM-ELEMENT-TYPE... vs. CLOSE

2010-09-16T06:13:21Z

Обнаружил, что SBCL после закрытия stream'а теряет все возможности интроспекции на нём: INPUT-STREAM-P, OUTPUT-STREAM-P => NIL, остальное ругается на попытку ввода-вывода с закрытым stream'ом (например, STREAM-ELEMENT-TYPE). Это категорически не кажется правильной вещью. Но прежде, чем бросаться репортить и фиксить, хочу посоветоваться с сообществом: правильно ли я понимаю, что вышеописанное не только «нехорошо», но и non-conforming? Я считаю, что это подтверждается тем, что про OPEN-STREAM-P написано Affected by: Close, а про всю интроспекцию -- Affected by: None.

Clozure CL, CLISP, ECL не делают такой бяки. У кого есть под рукой другие реализации -- как с этим делом принято?

Extended loop: for .. while .. for

2010-09-01T01:32:03Z

Никак не могу понять одной вещи про extended loop -- прямо мозги вытекают :(

Допускается ли стандартом использование termination test clauses (e.g. while) *между* for? Так, чтобы если условие завершения наступило, stepping от «нижних» for бы не выполнялся (у меня довольно часто многоэтажный loop построен так, что «нижние» for не способны сделать stepping без ошибки, если вовремя не вывалиться).

Если начать исследовать CLHS с того места, где расписан как-бы-BNF extended loop, кажется, что такого делать просто нельзя. Если закопаться внутрь, однако, попадаются (или, возможно, приглючиваются) намёки, что так делать можно. SBCL и CCL такое проглатывают и работают ожидаемым образом, но мне вспоминается печальный опыт с чем-то вроде ECL, который (если я правильно помню) потребовал подвинуть while вниз, а это уже потащило за собой переписывание всего подряд. В общем, совершенно нехарактерная для Common Lisp засада -- когда можно пользоваться нестандартным расширением несколько лет, и внезапно об этом узнать. Такая перспектива мне не нравится. (Взбрык ECL, опять же, совершенно не показатель -- дело было давно, он был моложе и глупее и вполне мог быть non-conforming в этом плане. Проверять заново не тянет: сейчас хочется выяснить, как оно *должно* быть, а тут такие проверки не помогут)

Ну и такой вопрос -- если я сделаю вместо WHILE какой-нибудь FOR () = (WHEN кирдык (LOOP-FINISH)) -- оно-то уж точно предотвратит stepping в последующих FOR? (тогда, с одной стороны, становится непонятно, на фига не разрешили там WHILE (если и вправду нельзя), но зато понятно, на что его менять, чтобы обойтись без революций).

ru_lisp @ 2010-07-27T12:06:00

2010-07-27T09:17:28Z

Привет!
В общем вот какое дело:
emacs + slime + clisp + windows
пишет каракули при выводе кириллицы
я это лечу,
(set-process-coding-system (get-process "inferior-lisp") 'cp1251 'cp1251)
ну или хоткеем (просто первый вариант длиннее, ну вы понимаете)

А как это куда-нибудь вписать чтобы не приходилось этого делать вообще.
Потому, что если я явно указываю все параметры кодировок в .emacs, то он перестает автоматически распознавать и потом каракули из буфера обмена лезут и вообще.

проблема с parenscript

2010-02-22T10:09:22Z

здравствуйте, уважаемые.
собираюсь я начать работу с parenscript, запускаю clisp, выполняю следующее:

(dolist (x '(:hunchentoot :cl-who :parenscript :cl-fad))
  (asdf:oos 'asdf:load-op x))

пакеты грузятся нормально. особое внимание обращаю на parenscript:

; loading system definition from /usr/share/common-lisp/systems/parenscript.asd into #<PACKAGE ASDF0>
;; Loading file /usr/share/common-lisp/systems/parenscript.asd ...
; registering #<SYSTEM :PARENSCRIPT #x20CD1A6E> as PARENSCRIPT
WARNING: Модифицируется родовая функция #<STANDARD-GENERIC-FUNCTION PERFORM>, которая уже была вызвана.
; registering #<SYSTEM :PARENSCRIPT.TEST #x20CD921E> as PARENSCRIPT.TEST
;; Loaded file /usr/share/common-lisp/systems/parenscript.asd
;; Loading file /var/cache/common-lisp-controller/1000/clisp/parenscript/src/package.fas ...
;; Loaded file /var/cache/common-lisp-controller/1000/clisp/parenscript/src/package.fas
;; Loading file /var/cache/common-lisp-controller/1000/clisp/parenscript/src/utils.fas ...
;; Loaded file /var/cache/common-lisp-controller/1000/clisp/parenscript/src/utils.fas
;; Loading file /var/cache/common-lisp-controller/1000/clisp/parenscript/src/defgenerics.fas ...
;; Loaded file /var/cache/common-lisp-controller/1000/clisp/parenscript/src/defgenerics.fas
;; Loading file /var/cache/common-lisp-controller/1000/clisp/parenscript/src/js.fas ...
;; Loaded file /var/cache/common-lisp-controller/1000/clisp/parenscript/src/js.fas
;; Loading file /var/cache/common-lisp-controller/1000/clisp/parenscript/src/js-html.fas ...
;; Loaded file /var/cache/common-lisp-controller/1000/clisp/parenscript/src/js-html.fas
;; Loading file /var/cache/common-lisp-controller/1000/clisp/parenscript/src/css.fas ...
;; Loaded file /var/cache/common-lisp-controller/1000/clisp/parenscript/src/css.fas
;; Loading file /var/cache/common-lisp-controller/1000/clisp/parenscript/src/compile-js.fas ...
;; Loaded file /var/cache/common-lisp-controller/1000/clisp/parenscript/src/compile-js.fas
0 ошибок, 0 предупреждений
0 ошибок, 0 предупреждений
NIL

затем ввожу следующее:

(defpackage "PS-TUTORIAL"
  (:use "COMMON-LISP" "HUNCHENTOOT" "CL-WHO" "PARENSCRIPT" "CL-FAD"))

и получаю сообщение об ошибке:

*** - SYSTEM::%FIND-PACKAGE: Нет пакетов с именем "PARENSCRIPT".
Имеются следующие варианты продолжения:
USE-VALUE      :R1      Вы можете ввести новое значение для использования.
ABORT          :R2      Abort main loop

в sbcl -- то же самое.
как быть?

Как объявить функцию результат которой может использовать setf ?

2010-01-09T04:07:49Z

Хочется чтоб по аналогии

   (setf (car *x*) 5)

объявить функцию, которую можно было бы использовать вот так:

   (setf (mycar *x*) 5)

Это возможно?

Синтаксические сладости

2009-12-31T13:27:17Z

Кросс-пост: http://lisper.ru/forum/thread/134

Предлагаю просто поделиться удобными и красивыми синтаксическими трюками, может даже целыми подходами.

Вот, например, if с bind'ингом и it'ом:

(defun iif-lform-gather (lst)
  (cond
    ((null lst) nil)
    ((listp (car lst))
       (if (and (keywordp (caar lst)) (eq (caar lst) :bind))
           (prog1 (cons (cons (cadar lst) (cddar lst))
                        (iif-lform-gather (cdr lst)))
                  (setf (car lst) (caddar lst)))                  
           (nconc (iif-lform-gather (car lst))
                  (iif-lform-gather (cdr lst)))))
    (t (iif-lform-gather (cdr lst)))))
         
         
(defmacro iif (arg tform nform)
  `(let ((it ,arg) ,@(iif-lform-gather arg))
     (if it ,tform ,nform)))

Примеры использования:
(iif (< (:bind xx (+ 12 x)) 34) (1+ xx) (-1 xx))
(iif some-variable (cons 'a it) '(a))

ru_lisp @ 2009-12-17T20:47:00

2009-12-17T16:47:45Z

А оговаривается ли где-то в стандарте порядок раскрытия макросов?
Репост отсюда вот:
http://lisper.ru/forum/thread/126

Дело в том, что ради интереса попробовал реализовать вот такую штуку

(eval-when (:compile-toplevel :load-toplevel :execute) 
  (defvar *cleaners* '())) 
 
(defmacro with-cleaners ((&rest resources) &body body) 
  "Each resource is of form (name value)" 
  (setf *cleaners* '()) 
  `(let ,resources 
     (macrolet ((add-cleaner (&body cleaner-body) 
                  (push cleaner-body *cleaners*) 
                  nil) 
                (invoke-cleaners () 
                  `(progn ,@(reduce #'nconc *cleaners*) 
                          ,(setf *cleaners* '())))) 
       (unwind-protect 
         (progn ,@body) 
         (invoke-cleaners)))))

и обнаружил, что оно не везде работает так, как хотелось(должно вычислять все cleaner формы в конце области видимости)(оно полагается на порядок раскрытия слева-направо; соответственно, например, Clozure CL оно работает, а в SBCL, например - нет(и это только в случае с unwind-protect, как я понял. Если вместо него обычная функция, порядок - слева направо))

Как интернить не только строки ?

2009-11-22T13:20:43Z

Хочется иметь функцию, которая бы работала как string->symbol, но для всех типов данных.
То есть, если x и y equal?-равны (по значению), то (intern x) и (intern y) будут eq?-равны (по ссылке).

Зачем это надо?
Для того же, что и string->symbol: экономить память, если ожидается много одинаковых иммутабельных оьъектов и быстро их сравнивать (eq? вместо equal?)

Написал я такую функцию (PLT Scheme)

(define *internat* (make-weak-hash))

; not thread safe
(define (intern x [internat *internat*])
  (let ([e (hash-ref internat x #f)])
    (if e
        (ephemeron-value e)
        (let ([e (make-ephemeron x x)])
          (hash-set! internat x e)
          (ephemeron-value e)))))

(define (interned? x [internat *internat*])
  (let ([e (hash-ref internat x #f)])
    (if e
        (eq? x (ephemeron-value e))
        #f)))

; набор тестов тут: http://paste.lisp.org/display/90896

Хотя она делает что нужно, она мне очень не нравится.
Даже в таком упрощённом (не thread safe) варианте она сильно медленнее, чем string->symbol.

Как это можно сделать лучше ?
М.б. есть реализации Scheme (или CL), где string->symbol (или intern) уже работает для всех типов ?

UPD: это задача не про подсчёт хеш-суммы, и дальнейшей работой с хеш-суммой вместо объекта.

Это задача про удаление дубликатов иммутабельных объектов:

(define a "AAA")
(intern a) ; возвращает a
(define b "AAA")
(intern b) ; возвращает a

Должно быть true не только

(eq? (intern "AAA") (intern "AAA"))

но и

(equal? (intern "AAA") "AAA")

композиция

2009-11-22T07:09:05Z

Доброе утро.
А есть в эхотаге композиция функций?
В варианте, например,

(funcall (composition #'reverse #'car #'1+) '(1 2 3 4)) -> 5

Нет, я её конечно сам написал для функций одного аргумента (мне больше не надо, а думать над тем как оно будет в общем виде было неохота), но вдруг она есть, а я её не нашел.

АПД: судя по ответам - в стандарт не входит. Реализована как минимум в виде функций metatilities:compose и alexandria:compose.

спасибо

Пятничное

2009-11-20T08:47:03Z

А можно ли сделать пакет по свойствам похожий на пакет keyword?

Так, чтобы получилось, что наш пакет содержит любой символ и значением любого символа из этого пакета было бы, скажем, строковое представление этого символа?

> (symbol-value (ourpackage:any_symbol))
"any_symbol"

Когда форма не будет выполненна?

2009-11-14T12:07:50Z

Подскажите, смотрю на код, и не понимаю, зачем pushnew понадобилось оборачивать в eval-when?

(eval-when (compile eval load)
  (pushnew :solaris *features*))

AutoLISP

2009-11-13T04:01:48Z

Hi all!
Пришлось столкнуться с программированием на AutoLISP (AutoCAD). IDE, поставляемый с автокадом, не обновлялся лет 20, работать в нем просто невозможно

Может подскажите какую-нибудь среду разработки, в которой можно писать на AutoLISP и в которой есть интеграция с AutoCAD (т.е. дебаг и запуск приложений из IDE)

ru_lisp @ 2009-10-09T21:59:00

2009-10-09T18:02:16Z

Привет.
Я тут дописываю библиотеку-биндинг к Direct3D 10
http://love5an.livejournal.com/316933.html
Ну, то есть, уже написал, практически, но остался один небольшой(хотя, как посмотреть) момент. В D3D10 есть один интерфейс, COM-интерфейс, который подразумевает переопределяемость юзером. ID3D10Include.
То есть, грубо говоря, инстансы его наследников должены быть полноценными COM-объектами, определенными из лиспа. С табличкой виртуальных функций и т.д, ну то есть, чтоб их мог вызывать рантайм D3D10.

Кто-нибудь может подсказать, в каком направлении тут копать, т.е. как это реализовать? Хватит ли просто массива с указателями на коллбэки или как-то это дело в COM регистрировать и т.д.? И если надо работать с COM, то можно ли все это из рантайма лиспа сделать, без использования таких вещей, как MIDL компилятор и т.д?

Сообщение от команды смотрителей

2009-09-27T10:08:29Z

Уважаемые читатели и писатели ru_lisp!

В связи с разразившейся в ЖЖ эпидемии порноспама введена премодерация для сообщений новых пользователей. Некоторые пользователи, ники которых мне показались незнакомыми и странными, также пока оставлены на премодерации до тех пор, пока они не докажут с помощью вменяемых сообщений, что они не верблюды.

Подчеркну, что если вы хотите только читать сообщество, премодерация вам нисколько не помешает. Оставайтесь в статусе премодерации столько, сколько захотите :) На комментарии, как я понял, этот статус тоже не влияет, только на посты.

Надеемся, что премодерация не доставит вам никаких неудобств.

loop: collect into

2009-09-12T03:06:58Z

Прочитал, всё, что смог найти, но так и не понял по какому принципу нижеприведённая функция после (setf temp nil) на следующем collect i into temp как ни в чём не бывало вcпоминает значение temp, предшествовавшее присвоению ему nil'a и дописывает к нему новый элемент. Может, кто-нибудь знает в чём дело?

(defun divide-by-tokens (token-list target-list)
  (loop for i in target-list
        when (member i token-list)
          collect (copy-list temp) into result
          and do (setf temp nil)
        else collect i into temp
        finally (return (nconc result (list temp)))))

Пример:
(divide-by-tokens '(where) '(a b where c d))
>> ((A B) (A B C D))