KA
код написан на Java и Python, задача состоит в том, чтобы реализовать его на Лиспе
Size: a a a
2019 September 13
PG
Это тестовое задание, скучно
IZ
Ко мне как-то стучался чувак, чтобы ему пакет для emacs написать
Emacs -- это не лисп...
IZ
код написан на Java и Python, задача состоит в том, чтобы реализовать его на Лиспе
Это твоё задание-то?
MK
Emacs -- это не лисп...
Если Emacs Lisp - это не Lisp, то я хз
IZ
Если Emacs Lisp - это не Lisp, то я хз
Это непромышеленный недоделанный лисп...
ЛИСПИК
ЛИСПИК
А
Боюсь тогда представить, что же такое autolisp
MK
Это непромышеленный недоделанный лисп...
ЛИСПИК
ЛИСПИК
Лиспик для расширения имакса, всё правильно
KA
Это твоё задание-то?
Yes
AA
Kya bol RHA ye chutiya
KA
Kya bol RHA ye chutiya
Is this the task🤪
RR
Мне нужно подсчитать количество битов в битовой
строке, хотелось бы ради такого спуститься на уровень ассемблера. Как
такие трюки делаются в SBCL ?
строке, хотелось бы ради такого спуститься на уровень ассемблера. Как
такие трюки делаются в SBCL ?
2019 September 14
MS
RR
@RigidusRigidus возможно это пригодится: https://www.pvk.ca/Blog/2014/08/16/how-to-define-new-intrinsics-in-sbcl/
Спасибо, кажется это то что надо
2019 October 14
r
Доброго времени суток, форумчане. Я недавно начал изучать CL. Возникла проблема. Есть код генератора текста. Компилируется,но как мне ему скормить сам текст? Прикладываю файл.
r
r
(defparameter *words* (make-hash-table :size 10000))
(defconstant maxword 100)
(defun read-text (pathname)
(with-open-file (s pathname :direction :input)
(let ((buffer (make-string maxword))
(pos 0))
(do ((c (read-char s nil :eof)
(read-char s nil :eof)))
((eql c :eof))
(if (or (alpha-char-p c) (char= c #\'))
(progn
(setf (aref buffer pos) c)
(incf pos))
(progn
(unless (zerop pos)
(see (intern (string-downcase
(subseq buffer 0 pos))))
(setf pos 0))
(let ((p (punc c)))
(if p (see p)))))))))
(defun punc (c)
(case c
(#\. '|.|)
(#\, '|,|)
(#\; '|;|)
(#\! '|!|)
(#\? '|?|)))
(let ((prev '|.|))
(defun see (symb)
(let ((pair (assoc symb (gethash prev *words*))))
(if (null pair)
(push (cons symb 1) (gethash prev *words*))
(incf (cdr pair))))
(setf prev symb)))
(defun generate-text (n &optional (prev '|.|))
(if (zerop n)
(terpri)
(let ((next (random-next prev)))
(format t "~A " next)
(generate-text (1- n) next ))))
(defun random-next (prev)
(let* ((choices (gethash prev *words*))
(i (random (reduce #'+ choices
:key #'cdr))))
(dolist (pair choices)
(if (minusp (decf i (cdr pair)))
(return (car pair))))))
(defconstant maxword 100)
(defun read-text (pathname)
(with-open-file (s pathname :direction :input)
(let ((buffer (make-string maxword))
(pos 0))
(do ((c (read-char s nil :eof)
(read-char s nil :eof)))
((eql c :eof))
(if (or (alpha-char-p c) (char= c #\'))
(progn
(setf (aref buffer pos) c)
(incf pos))
(progn
(unless (zerop pos)
(see (intern (string-downcase
(subseq buffer 0 pos))))
(setf pos 0))
(let ((p (punc c)))
(if p (see p)))))))))
(defun punc (c)
(case c
(#\. '|.|)
(#\, '|,|)
(#\; '|;|)
(#\! '|!|)
(#\? '|?|)))
(let ((prev '|.|))
(defun see (symb)
(let ((pair (assoc symb (gethash prev *words*))))
(if (null pair)
(push (cons symb 1) (gethash prev *words*))
(incf (cdr pair))))
(setf prev symb)))
(defun generate-text (n &optional (prev '|.|))
(if (zerop n)
(terpri)
(let ((next (random-next prev)))
(format t "~A " next)
(generate-text (1- n) next ))))
(defun random-next (prev)
(let* ((choices (gethash prev *words*))
(i (random (reduce #'+ choices
:key #'cdr))))
(dolist (pair choices)
(if (minusp (decf i (cdr pair)))
(return (car pair))))))
r
Выкладываю сам код.
PG
Мда, форумчане
PG
Можешь в репле прочитать текст в переменую и передать в функцию