Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Lisp Произведение https://www.cyberforum.ru/ lisp/ thread2357089.html
Выражение для суммы: y(N)=\prod_{i=-2}^{N+1}\prod_{j=2}^{N+3}(i+1/j) (defun y (n) (let ((i -2) ; параметр суммы (j 2) ; параметр произведения (декларация) (prod)) ; аккумулятор для произведения (декларация) ;; функция для выражения, вычисляемого в цикле
Проверка правильности записи числа римскими цифрами Lisp
На форуме предлагались решения, но они неверны, поэтому прошу помощи. На википедии есть регулярка для проверки: ^(M{0,3})(D?C{0,3}|C)(L?X{0,3}|X)(V?I{0,3}|I)$ может быть кто-то сможет переписать ее на лисп? Для представления римских цифр используются символы: I - один, V - пять, X -десять, L - пятьдесят. С - сто, D - пятьсот, М - тысяча. Для изображения числа с помощью римских цифр...
Lisp Где ошибка? (Задача в Scheme) Реализуйте процедуру memoized-factorial для вычисления факториала по рекурсивной формуле с мемоизацией результатов вычислений. Для мемоизации используйте ассоциативный список (словарь), который храните в статической переменной. Использовать для этой цели глобальную переменную запрещается. ГДЕ тут ошибка? (define memoized-factorial (let ((memo '())) (lambda (n) (let ((computed... https://www.cyberforum.ru/ lisp/ thread2356752.html Lisp Строки в Scheme Реализуйте на ЯП Scheme процедуры работы со строками: Предикаты*(string-prefix? a b),*(string-suffix? a b)*и*(string-infix? a b), соответственно, проверяющие, является ли строка*a: началом строки*b, окончанием строки*b*или строка*a*где-либо встречается в строке*b.Процедуру*(string-split str sep), возвращающую список подстрок строки*str, разделенных в строке*str*разделителями*sep, где*sep*—... https://www.cyberforum.ru/ lisp/ thread2356086.html
Lisp Drop и take
На вход drop и take подаётся целое число n и поток(бесконечный список).Функция drop должна выдавать поток без первых n элементов.Функция take должна выдавать список из первых n элементов потока. В случае недостаточного количества элементов в потоке необходимо удалять/возвращать то количество элементов, которое есть в наличии. Добавлено через 30 минут (defun take (n potok) (when (and n...
Lisp Реализовать рекурсивную функцию https://www.cyberforum.ru/ lisp/ thread2355821.html
Даны списки lst1 и lst2. Реализовать функцию, которая удаляет из lst1 все элементы-списки, которые соответствуют тому же множеству, что и lst2. Пример: для списков: lst1=‘(1 (2 2 3) 4 (3 2 3) 5), lst2=‘(3 2 3 2) результатом будет ‘(1 4 5).
Lisp Сумма цифр факториала числа https://www.cyberforum.ru/ lisp/ thread2355749.html
Для заданного числа n находится сумма факториал его цифр 11!(Lisp)
Lisp Удалить из многоуровневого списка все подписки, расположенные на чётных позициях
Дан многоуровневый список. Удалить из него все подписки, расположённые на чётных позициях.
Lisp Вывод чисел из диапазона a и b, которые делятся на 7, но не делятся на 13 В задании дано написать функцию, выводящую из заданного диапазона а и b числа , которые делятся на 7 , но не делятся на 13. По методичке попробовала переделать под свой вариант, и теперь окончательно понимаю, что ничего не понимаю в этом предмете. Буду рада , если дадите конструктивные советы. Возможно мне вообще надо идти каким-то другим путем (LET ( ( X 1) (N 1000) ( COUND 0) (LOOP ... https://www.cyberforum.ru/ lisp/ thread2355580.html Lisp Статическая переменная в Scheme https://www.cyberforum.ru/ lisp/ thread2355337.html
Что такое статическая переменная в Scheme? Каким образом на языке Scheme можно реализовать процедуру со статической переменной?
Lisp Функции make
Опишите функции: make+ , make- , make* , make/ , makeexpt , makesqrt , makesin , makecos , maketan , makeasin , makeacos , makeatan , makeexp и makelog . Каждая из функций этого задания должна конструировать для заданного набора аргументов вызов функции, упомянутой в названии. Каждая из функций должна быть определена для корректного числа параметров. make+ (defun make+ (&rest x) `(+ ,@x))...
Lisp Макросы https://www.cyberforum.ru/ lisp/ thread2354473.html
ПРИМЕР: Определите макрос для цикла while, реализующий итерационный процесс через вызов функции с хвостовой рекурсией. Формат команды для вызова макроса: ( while condition body ) где condition — условие выполнения цикла; body — тело цикла — одно или несколько выражений. Тело цикла должно исполняться пока результат вычисления условия не равен NIL. Результат выполнения макроса — значение...
8 / 6 / 2
Регистрация: 29.11.2017
Сообщений: 206
0

Перевести код функции SquareDigitsSum (Haskell -> Lisp) - Lisp - Ответ 13089025

23.11.2018, 20:12. Показов 831. Ответов 5
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Никак не получается переписать функцию SquareDigitsSum с Haskell на Lisp(
На Haskell функция рабочая


Вот что получилось:
Haskell
1
2
3
4
5
squareDigitsSum y = y : (squareDigitsSum z)
                where z = dopFunction (y * y)
dopFunction x = if (x < 10) 
                then x 
                else (x `mod` 10) + dopFunction (x `div` 10)
Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
(defun dopFunction (x)
  (if (< x 10)
      x
      (+ (mod x 10) (dopFunction (floor x 10)))))
 
(print (dopFunction 5))
(print (dopFunction 15))
(print (dopFunction 125))
 
(defun zeshka (y)
    (dopFunction (* y y)))
 
(print (zeshka 50))
 
(defun squareDigitsSum2 (y)
    (squareDigitsSum2 y) (zeshka y))
 
 (defun squareDigitsSum (y)
   (cons y (squareDigitsSum2 y)))
 
 (print (squareDigitsSum 100))


Вернуться к обсуждению:
Перевести код функции SquareDigitsSum (Haskell -> Lisp) Lisp
0
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.11.2018, 20:12
Готовые ответы и решения:

Переписать код с Haskell на Lisp
Необходимо переписать имеющийся код на Haskell'е на Lisp. Помогите пожалуйста! codeEvRod n |...

Решил перевести код с Pascal на Lisp. Алгоритм подсчета счастливых билетов
Автобусные билеты нумеруются шестизначными числами от 000000 до 999999. Напишите программу, которая...

Совместимость Lisp и Haskell с С++
Привет всем. Известно что языки Hasskel и Lisp на сегодня не так популярны как С++ или PHP....

Помогите перевести с Haskell на другой язык
День добрый, Если не сложно, помогите перевести данный codegolf код на любой другой язык...

5
23.11.2018, 20:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.11.2018, 20:12
Помогаю со студенческими работами здесь

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

Перевести код математической функции с паскаля
Здравствуйте, есть функция написана в паскале: function g (a,b :real) : real begin ...

Перевести код математической функции с паскаля В C++ Builder
Есть программа в паскале нужно переделать в С++ Builder, помогите, заранее спасибо. var a :...

Перевести пример на язык LISP
Помогите перевести пример на язык LISP

Функция squareDigitsSum
squareDigitsSum :: Integral a =&gt; a -&gt; ,определяющую для заданного целого x последовательность ,где...

Как перевести из Lisp на Prolog или решение задач
Всем добрый вечер. К сожалению, в Prolog не работал, нужно перевести из Lisp в Prolog, либо сделать...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru