Полезные коды и авторские программы на Lisp

Cheb · Регистрация: 09.11.2011

Студворк — интернет-сервис помощи студентам

Расскажите, пожалуйста, что на лиспе пишите? вкратце, хотя бы. Очень интересно.
Понятно, что студенты пишут лабы, но вот все остальные, чем занимаются?
Сам пока ничего не пишу, а учу язык, но есть задумки написать веб-сервер для парсинга отчетов от АТС-ки. Заходит админ на него и смотрит кто куда и во сколько звонил по офису, статистика всякая там и прочее.
В общем не стесняйтесь, похвастайтесь, может сумеете заинтересовать случайного прохожего языком.

@RatPoison · 31.01.2021, 20:37

Сообщение от chessman2

Как удалить логин proba?

никак

Сообщение от chessman2

Пароль: stty: 'стандартный ввод': Неприменимый к данному устройству ioctl

Это что-то с твоим терминалом и его настройками.
Ты в терминале запускаешь кстати или в Dr.Racket?

Сообщение от chessman2

Как удалить логин proba?

Никак. Из файла если только руками.
У пользователя не должно быть возможности удалят чужие аккаунты)

@helter · 31.01.2021, 21:28

Сообщение от RatPoison

можно скрыть, но тогда пользователь может ошибиться при наборе придуманного пароля и так об этом и не узнать.

Дык поэтому всегда пароли два раза вводят.

@RatPoison · 31.01.2021, 21:32

Сообщение от helter

Дык поэтому всегда пароли два раза вводят.

Не всегда. Такое часто встретишь в сети, а вот в пользовательских программах я такого почти не встречал.
Визуализация - первое и самое простое действие для проверки)
Обычно если это пользовательская программа, то там либо можно "глазик" нажать и посмотреть что водишь если надо.
Либо там вводимое визуализируется на долю секунды, а потом заменяется другим знаком - точкой, например.
Но это в терминале сделать трудно. Это для GUI.

@chessman2 · 31.01.2021, 22:27

Сообщение от RatPoison

это в терминале сделать трудно.

В терминале работает у меня такой код нормально.

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
#lang racket
 
(define (read-password)
  (system "stty -echo")
  (begin0 (read-line)
    (system "stty echo")
    (newline)))
 
(display "Password: ")
(define password (read-password))
(display "Username: ")
(define user (read-line))
(printf "User ~a's secret is: ~a\n" user password)

Примерно так (пароль при вводе не показывается)
~/pro/racket> racket getPassword.rkt
Password:
Username: qwe
User qwe's secret is: 123
suva@localhost:~/pro/racket>

@RatPoison · 31.01.2021, 22:30

Сообщение от chessman2

В терминале работает у меня такой код нормально.

ты в терминале предыдущий раз запускал или в IDE?

@chessman2 · 31.01.2021, 22:50

Сообщение от RatPoison

Визуализация - первое и самое простое действие для проверки

В случае ввода пароля - визуализация, вещь вредная,
служит только для исправления опечатки пользователя.
Если пароль человек тупо забудет пароль - уже без разницы,
есть визуализация или нет.

Вопросы по вашей программе -
- где хранится пароль зарегистрировавшегося?
- шифруется ли сам пароль при сохранении?

Добавлено через 5 минут

Сообщение от RatPoison

ты в терминале предыдущий раз запускал или в IDE?

В терминале работает, не понятно как.

Code
1
2
3
4
Для возврата в меню: б
Придумайте логин: qwe
Это имя уже занято. Придумайте другое
Придумайте логин:

Зачем мне придумывать логин??
если я уже раньше зарегистрировался как qwe
и хочу зайти под логином qwe

@RatPoison · 31.01.2021, 22:59

Сообщение от chessman2

Зачем мне придумывать логин??
если я уже раньше зарегистрировался как qwe
и хочу зайти под логином qwe

в коде идет два вызова подряд.
(registration) //регистрация
(login) //логин

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

Сообщение от chessman2

- где хранится пароль зарегистрировавшегося?

я же говорил - папка в твоей домашней директории.

Сообщение от chessman2

- шифруется ли сам пароль при сохранении?

В этом коде нет. Потому что мне не нужно было. Изменить это - дело одной функции из библиотеки и правка двух строк кода.

Сообщение от chessman2

В случае ввода пароля - визуализация, вещь вредная,
служит только для исправления опечатки пользователя.
Если пароль человек тупо забудет пароль - уже без разницы,
есть визуализация или нет.

Это уже про другое.
А как скрытый ввод при регистрации поможет запомнить пароль?

Сообщение от chessman2

В терминале работает у меня такой код нормально.

Ну значит ты предыдущий раз не в терминале запускал.

@chessman2 · 31.01.2021, 23:14

Сообщение от RatPoison

А как скрытый ввод при регистрации поможет запомнить пароль?

При чем тут вввод?
Я сначала придумываю пароль.
Запоминаю его в голове (в особых случаях в записной книжке).
А уже потом ввожу туда где этот пароль требуется.

@RatPoison · 31.01.2021, 23:29

Сообщение от chessman2

При чем тут вввод?
Я сначала придумываю пароль.
Запоминаю его в голове (в особых случаях в записной книжке).
А уже потом ввожу туда где этот пароль требуется.

Так причём тут запоминание?

@Catstail · 01.02.2021, 08:16

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

@chessman2 · 01.02.2021, 19:32

Продолжаю собирать частотные словари.
К англо-русскому добавил французско-русский
на 1500 слов.
В ссылке скрипт + два словаря в архиве.

https://www.dropbox.com/s/cwqu... t.zip?dl=0

@chessman2 · 17.02.2021, 21:53

В ссылке скрипт реализующий
арифметику с простыми дробями.
Особенности: использование русскоязычных
идентификаторов.
Полезности: может пригодиться семиклассникам.

https://www.dropbox.com/s/t33b... r.zip?dl=0

@chessman2 · 22.04.2021, 17:16

В ссылке скрипты реализующие искусственный нейрон, его обучение,
решение двух простых задачек.

Особенности: язык racket

Полезности: для интересующихся нейронными сетями.

https://www.dropbox.com/s/q6lg... n.zip?dl=0

@supmener · 22.04.2021, 21:11

Сообщение от chessman2

скрипт реализующий
арифметику с простыми дробям

Ссылка не рабочая.

@chessman2 · 22.04.2021, 21:44

Сообщение от supmener

Ссылка не рабочая.

Не знаю в чем проблема.
Залил заново.

https://www.dropbox.com/s/swx7... r.zip?dl=0

@chessman2 · 06.08.2021, 13:57

Скрипт для трех язычного словаря, более 4800 слов,
на основе частотного словаря русского разговорного языка.

Последовательность перевода: Русский -> Французский -> Английский.

Направление перевода можно менять, см. комментарии в файле rfe.rkt

https://www.dropbox.com/s/bwb9... e.zip?dl=0

Добавлено через 2 часа 4 минуты

Сообщение от budden

заведи репозиторий

Рано еще.
Словарь хорошо верифицирован только в русской части.
Остальные (анг., фран.) нужно еще проверять.
Я технарь, а не лингвист - косяки полагаю присутствуют.
Присоединяетесь, замечания по переводу учту.

@chessman2 · 30.09.2021, 21:39

Англо-Русский частотный словарь, более 7800 словарных статей.
Реализован в двух вариантах:
lisp - консольный
racket - GUI

https://www.dropbox.com/s/7pst... c.zip?dl=0

@chessman2 · 12.10.2021, 20:33

К частотному словарю (ссылка в предыдущем посте)
легко добавить голосовой перевод.

Установка необходимых программ из терминала.

Шаг 1. Установка переводчика Translate Shell в терминале

Ubuntu, Linux Mint, Deepin и пр. - выполните в терминале следующую команду:

sudo apt install translate-shell

Manjaro

sudo pamac install translate-shell

Или установите пакет с официального сайта загрузки
https://pkgs.org/download/translate-shell

Шаг 2. Создать в каталоге ~/lisp/bigdic
два скрипта:

run1.sh

Bash
1
2
3
sbcl --script  bigdic.lisp > transword.txt
cat transword.txt
head -n 2 transword.txt | trans -p > /dev/null

run2.sh

Bash
1
2
sbcl --script  bigdic.lisp > transword.txt
head -n 2 transword.txt | trans -p

Сделать скрипты исполнимыми.

chmod +x run1.sh
chmod +x run2.sh

run1.ch - текстовый перевод из файла er7807.lisp
- голосовой перевод Translate Shell

run2.ch - перевод Translate Shell

@chessman2 · 14.06.2022, 13:56

Возможно кому-нибудь пригодится частотный
таджикско-русский-английский словарь (около 1000 словарных статей).

Реализован для lisp и racket (консольный и GUI соответственно).

https://www.dropbox.com/s/md5l... n.zip?dl=0

@forthuser · 08.07.2022, 15:00

Думаю, что близко теме топика.
Zillions of Games
Не знаю на чём написан сам движок этого продукта, но в качестве языка разработки игр использован Лисп ориентированный язык.

В постах этого автора на Хабр есть описание Axiom
и в последствии автор сделал и свою подобную разработку для настольных игр с дизайном тоже Лисп языка.

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

Cheb 92 / 59 / 8 Регистрация: 09.11.2011 Сообщений: 443

	Полезные коды и авторские программы на Lisp 30.10.2014, 09:43. Показов 44106. Ответов 132 Метки нет (Все метки) Расскажите, пожалуйста, что на лиспе пишите? вкратце, хотя бы. Очень интересно. Понятно, что студенты пишут лабы, но вот все остальные, чем занимаются? Сам пока ничего не пишу, а учу язык, но есть задумки написать веб-сервер для парсинга отчетов от АТС-ки. Заходит админ на него и смотрит кто куда и во сколько звонил по офису, статистика всякая там и прочее. В общем не стесняйтесь, похвастайтесь, может сумеете заинтересовать случайного прохожего языком. 1

@Catstail Супер-модератор 38223 / 21155 / 4314 Регистрация: 12.02.2012 Сообщений: 34,769 Записей в блоге: 14
	01.02.2021, 08:16
	Напоминаю, что в этой теме публикуются законченные наработки. Обсуждать здесь их не следует. Заведите отдельные темы. 0

@chessman2 165 / 145 / 10 Регистрация: 21.10.2012 Сообщений: 503
	01.02.2021, 19:32
	Продолжаю собирать частотные словари. К англо-русскому добавил французско-русский на 1500 слов. В ссылке скрипт + два словаря в архиве. https://www.dropbox.com/s/cwqu... t.zip?dl=0 2

@chessman2 165 / 145 / 10 Регистрация: 21.10.2012 Сообщений: 503
	17.02.2021, 21:53
	В ссылке скрипт реализующий арифметику с простыми дробями. Особенности: использование русскоязычных идентификаторов. Полезности: может пригодиться семиклассникам. https://www.dropbox.com/s/t33b... r.zip?dl=0 3

@chessman2 165 / 145 / 10 Регистрация: 21.10.2012 Сообщений: 503
	22.04.2021, 17:16
	В ссылке скрипты реализующие искусственный нейрон, его обучение, решение двух простых задачек. Особенности: язык racket Полезности: для интересующихся нейронными сетями. https://www.dropbox.com/s/q6lg... n.zip?dl=0 0

@chessman2 165 / 145 / 10 Регистрация: 21.10.2012 Сообщений: 503
	30.09.2021, 21:39
	Англо-Русский частотный словарь, более 7800 словарных статей. Реализован в двух вариантах: lisp - консольный racket - GUI https://www.dropbox.com/s/7pst... c.zip?dl=0 3

@chessman2 165 / 145 / 10 Регистрация: 21.10.2012 Сообщений: 503
	14.06.2022, 13:56
	Возможно кому-нибудь пригодится частотный таджикско-русский-английский словарь (около 1000 словарных статей). Реализован для lisp и racket (консольный и GUI соответственно). https://www.dropbox.com/s/md5l... n.zip?dl=0 2

@forthuser 2 / 2 / 0 Регистрация: 06.07.2022 Сообщений: 19
	08.07.2022, 15:00
	Думаю, что близко теме топика. Zillions of Games Не знаю на чём написан сам движок этого продукта, но в качестве языка разработки игр использован Лисп ориентированный язык. В постах этого автора на Хабр есть описание Axiom и в последствии автор сделал и свою подобную разработку для настольных игр с дизайном тоже Лисп языка. 1