Lisp

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Lisp Найти наибольшее число, получаемое левыми сдвигами цифр натурального числа Задача из форума Turbo Pascal: https://www.cyberforum.ru/turbo-pascal/thread974839.html Найти наибольшее число, получаемое левыми сдвигами цифр натурального числа. https://www.cyberforum.ru/ lisp/ thread1942254.html	Мультидиспетчеризация и полиморфизм Lisp Поскольку мультидиспетчеризация является частным случаем перегрузки -- перегрузкой в рантайме, значит она подпадает под определение ad-hoc полиморфизма, который, в свою очередь, не является истинным полиморфизмом. Такие дела. Сочувствую.
Lisp База даных на Common Lisp https://www.cyberforum.ru/ lisp/ thread1941717.html Написать программу, обеспечивающую создание на диске базы данных и работу с ней. В функции программы должно входить : − создание базы данных; − добавление информации в базу данных; − модификацию (редактирование) информации; − запись базы данных на диск; − загрузку базы данных в оперативную память; − просмотр информации; − удаление информации из базы данных;...	Lisp Определить функцию и передать её в apply https://www.cyberforum.ru/ lisp/ thread1941229.html Задание такое: в зависимости от переданного значения функции, с помощью apply выполнять либо сложение элементов списка, либо умножение элементов списка. т.е apply func(x) '(1 2 3 4) если x = 1, то результат 10, если x=2, то 24 вот, что сделал я: определяю функцию func (defun func_(x) (cond ((eql 1 x)(plus))(eql 2 x)(TIMES)) затем пытаюсь вызвать apply (apply func_(1) '(1 2 3 4)) но...
Lisp Определить функцию Lisp Помогите определить функцию, возвращающую последний элемент списка, содержащего не более 3-х элементов.	Lisp Произведение числового ряда Прослушав одну лекцию в универе пытаюсь решить задачу. Помогите пожалуйста, не могу найти ошибку в коде. (defun ffff (i n) (do ((rez 1)) ((<= i n) rez) (setq rez (* (/ (+ i 1) (+ i 2)))) (setq n (+ n 1)) ) https://www.cyberforum.ru/ lisp/ thread1939232.html
Lisp Найти самый частый элемент в трехмерном массиве Не могу понять,как написать программу,которая читает трехмерный массив, содержащий вещественные числа, из стандартного потока ввода, и определяет, какое число встречается в массиве чаще всего, и выводит на экран количество вхождений. https://www.cyberforum.ru/ lisp/ thread1939172.html	Задача коммивояжёра Lisp Необходимо переделать задачу коммивояжёра методом поиска в ширину. Есть поиск в глубину (defvar GRAPH (list (list (list 1 5) (list 5 1)) (list (list 0 5) (list 2 6) (list 3 2)) (list (list 1 6) (list 3 1) (list 4 7)) (list (list 1 2) (list 2 1) (list 4 11)) (list (list 2 7) (list 3 11) (list 5 3)) ...
Lisp Инвертировать значения двух старших битов каждой тетрады, если младший бит тетрады единичный Не могли бы помочь написать программу (common lisp) Прочитать беззнаковое целое число из стандартного потока ввода и в каждом байте числа инвертировать значения двух старших битов каждой тетрады, если младший бит тетрады единичный. Результат вывести в стандартный поток вывода. Примеры преобразования: 65535 (11111111 11111111) ==> 13107 (00110011 00110011) 333444 (00000101 00010110 10000100)... https://www.cyberforum.ru/ lisp/ thread1934292.html	Lisp Разбить слова по слогам https://www.cyberforum.ru/ lisp/ thread1934113.html Добрый день, есть такое задание. Дана фраза русского языка. Написать программу, которая разбивает каждое слово фразы на слоги. Нашла код: (setq glasn '(а е ё и о у ы э ю я)) (defun is_glasn (chr lst_glasn) ((null lst_glasn) nil)
Lisp Интерпретатор лисповских программ Добрый день, кто может помочь с заданием? Реализовать программу -простейший интерпретатор лисповских программ . На вход интерпретатора подается текст, который может быть интерпретирован как вызов или суперпозиция функций Лиспа, пример (для GCLisp'а) : '(cons(car(cdr '(e r t w))) (cons (cdr '(g h 6)) nil)). Программа должна обеспечивать выполнение такого рода примеров.Требования...	Lisp Peter Seibel Здравствуйте. Присматриваюсь сейчас к лиспу, особенно к его ООП. В целом все нравится, но отталкивает слабость интеллекта некоторых "лисп-гуру", на которых часто наталкиваешься при чтении различной литературы. В частности, был неприятно удивлен "мнением" Peter Seibel, который выдвигает не то что бы абсурдный, а по-просту глупый аргумент против message-passing. Он вопрошает, что, дескать,... https://www.cyberforum.ru/ lisp/ thread1934096.html

Нейлирлин

1 / 1 / 0

Регистрация: 15.05.2016

Сообщений: 14

12.05.2017, 19:36 [ТС]

Данные, защищенные паролем - Lisp - Ответ 10428756

12.05.2017, 19:36. Показов 650. Ответов 6

Метки (Все метки)

Ответ

Как-то так))

Lisp

(define (make-account balance password)
  (define (wrong-passwd arg) "Incorrect password")
  (define (withdraw amount)
    (if (>= balance amount)
           (begin (set! balance (- balance amount))
                  balance)
       "Insufficient funds"))
    (define (deposit amount)
    (set! balance (+ balance amount))
    balance)
  (define (dispatch passwrd m)
    (if (eq? passwrd password)
      (cond ((eq? m 'withdraw) withdraw)
              ((eq? m 'deposit) deposit)
              (else (error "Unknown request -- MAKE-ACCOUNT"
                m)))
       wrong-passwd))
  dispatch)
 
(define acc (make-account 100 'secret-password))
 
(display ((acc 'secret-password 'withdraw) 40)) (newline)
(display ((acc 'secret-password 'withdraw) 40)) (newline)
(display ((acc 'secret-password 'withdraw) 40)) (newline)
(display ((acc 'some-other-password 'deposit) 50)) (newline)

Вернуться к обсуждению:
Данные, защищенные паролем Lisp

Следующий ответ

Заказать работу у эксперта

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

12.05.2017, 19:36

Готовые ответы и решения:

Невозможно явно декларировать элементы, которые определены в пространстве имен, как частные, защищенные или защищенные внутренние
Приветствую! В общем ошибка такая: Ошибка 1 Невозможно явно декларировать элементы, которые...

Данные из файла Excel с паролем
Есть файлы с данными, где в одинаковых ячейках находятся значения (а точнее оценки по показателям)....

Вытащить данные с HDD после Win10 с паролем пользователя
Есть ноутбук. Установлена Win10, но произошел сбой файловой системы (по всей видимости). Перед...

Защищенные видео с YouTube
Не нашел подходящей ветки, поэтому решил написать свой вопрос тут. Гугл, что-то, тоже не помог. ...

	12.05.2017, 19:36

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

12.05.2017, 19:36

Помогаю со студенческими работами здесь

Защищённые листы в Excel
Доброго времени суток товарищи! Подключаюсь через ADO к Excel такой строкой подключения: string...

Наследование и защищенные члены
Добрый день всем. У меня имеется следующий набор классов Visitor <- User <- Manager <- Admin...

Как удалить защищённые папки
Доброго времени суток! Подскажите пжлст., как удалить папку на которую выдаёт окно "Вам необходимо...

HttpRequest.Cookies защищённые куки
Добрый день ФЫорумчане! Есть небольшой код C#: string source = string.Empty; using...

Поиск файлов. Защищенные файлы.
Здравствуйте, возник вопрос. Этот фрагмент кода перебирает все файлы во всех папках в диске С и...

Защищенные ноутбуки с COM-портом в С-Петербурге
Предлагаем вашему вниманию ноутбуки с COM-портом. Имеются в наличии ноутбуки для профессиональных...

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

Наверх