Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Требуется решить задачу, Необходимо решить две задачи на Scheme.  
:(
    Опции темы
AlinaLittled
Дата 18.12.2011, 18:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 18.12.2011

Репутация: нет
Всего: нет



Доброго времени суток господа. Начала изучать Scheme элементарные задачи сделать могу, а вот с задачами сложнее, впадаю в ступор.
До завтра требуется написать три программы на Scheme под  DrRacket v 5.1.1

Задача №1

Написать функцию, генерирующую все циклические перестановки списка.

Задача №2

Реализовать приближенное вычисление интеграла, для заданной функции F с заданной точностью е по формуле прямоугольников

Сам интеграл по ссылке -> http://rghost.ru/35406711

Задача №3

Реализовать метод быстрой сортировки для сортировки списка.

В этом задании я пыталась написать программу но у меня постоянно на что нибудь да ругается, подскажите как исправить чтоб заработала?
Ссылка на код программы  -> http://dumpz.org/118540/

Очень прошу о помощи, не знаю уже куда обратиться  smile 
Заранее спасибо.


PM MAIL   Вверх
AlinaLittled
Дата 18.12.2011, 19:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 18.12.2011

Репутация: нет
Всего: нет



Люди помогите, пожалуйста. Ведь тем кто программирует на этом языке я думаю потребуется от силы минут 10 на задачу.
PM MAIL   Вверх
AlinaLittled
Дата 18.12.2011, 22:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 18.12.2011

Репутация: нет
Всего: нет



C задачей №3 справилась. Все прекрасно работает. Если вдруг кому нибудь может понадобиться вот ссылка на код http://dumpz.org/118632/
А вот с другими заданиями не могу. 
Может все таки найдется кто нибудь гений, кто знает как написать? Или тут все такие ни чего не умеющие делать?
PM MAIL   Вверх
k0rvin
Дата 28.12.2011, 13:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 442
Регистрация: 24.1.2010

Репутация: нет
Всего: 5



1)
Код

#lang racket

(define (cyclic-permutations xs)
  (define (inner xs perm result)
    (if (null? xs)
        (reverse result)
        (inner (cdr xs)
               (append (cdr perm) (list (car perm)))
               (cons perm result))))
  (inner xs xs '()))

Код

Добро пожаловать в DrRacket, версия 5.2 [3m].
Язык: racket; memory limit: 512 MB.
> (cyclic-permutations '(1 2 3 4))
'((1 2 3 4) (2 3 4 1) (3 4 1 2) (4 1 2 3))


?


--------------------
“Object-oriented design is the roman numerals of computing.” — Rob Pike
All software sucks
PM MAIL   Вверх
_sg
Дата 25.4.2014, 16:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 119
Регистрация: 16.5.2007

Репутация: 2
Всего: 2



как вариант - Common Lisp:
Код

(defun permutate (w)
  (cond ((null w) nil)
        ((null (cdr w)) (list w))
        ((loop for a in w
               nconc (mapcar #'(lambda (e) (cons a e))
                             (permutate (remove a w)))))))

> (permutate '(1 2 3))
((1 2 3) (1 3 2) (2 1 3) (2 3 1) (3 1 2) (3 2 1))

--------------------
vk.com/ansicommonlisp
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума LISP
Void
  • Пожалуйста, создавайте темы с содержательными названиями.
  • Lisp — это целое семейство языков. Всегда указывайте в теме используемый диалект (Common Lisp, Scheme и т.д.).
  • Уважаемые учащиеся, здесь всегда рады помочь Вам, но не делать за Вас вашу работу. У вас гораздо больше шансов получить помощь, если Вы приложите усилия и поделитесь с нами проблемами и результатами. В противном случае добро пожаловать в раздел Центр Помощи.
  • Получив ответ на интересующий Вас вопрос, не забудьте пометить его как решённый.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Void.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | LISP | Следующая тема »


 




[ Время генерации скрипта: 0.1132 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.