Clojure Всё время NIL

@Мусульманин · Регистрация: 24.09.2012

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

Доброго времени!
Задача:

Напишите функцию, производящую взаимную замену в списке S выражения X на Y, т.е. X->Y, Y->X. Не использовать встроенную функцию замены SUBST.

Моё решение:

Lisp

(defun my-subs (mylist)
    (cond
        ((null '(mylist)) nil)
        ((eq (car '(mylist)) 'x ) 
            (cons 
                (set (car '(mylist)) 'y ) (my-subs (cdr '(mylist)))))
        ((eq (car '(mylist)) 'y ) 
            (cons 
                (set (car '(mylist)) 'x ) (my-subs (cdr '(mylist)))))))

Функция объявлена, но при вызове с фактическими параметрами, например:

Lisp

1	(MY-SUBS '(Y W E R X))

даёт NIL.

Помогите разобраться в чём моя ошибка, несколько дней уже верчу и так, и этак. Работаю с CLISP.

@Catstail · 22.06.2014, 14:09

Если кратко - много лишних скобок и апострофов. Да и set здесь не нужен:

Lisp

(defun my-subs (mylist)
    (cond ((null mylist) nil)
          ((eq (car mylist) 'x ) (cons 'y (my-subs (cdr mylist))))
          ((eq (car mylist) 'y ) (cons 'x (my-subs (cdr mylist))))
          (t (cons (car mylist) (my-subs (cdr mylist))))))
 
==> my-subs
 
(MY-SUBS '(Y W E R X))
 
==> (x w e r y)

@Мусульманин · 22.06.2014, 14:46 **[ТС]**

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

Если кратко - много лишних скобок и апострофов. Да и set здесь не нужен:

Вы меня вдохновили, огромная благодарность. Не так уж всё и плохо, оказывается. Насчет set я понял, насчет скобок и квотирования тоже (это следствие лихорадочного поиска причин ошибочного кода). Но это ещё не всё? Если можно - чуть подробнее, в частности об этой строчке:

Lisp

1	(t (cons (car mylist) (my-subs (cdr mylist))))

Добавлено через 3 минуты
Я так понимаю, эта строчка обрабатывается в случае, если очередная голова списка не является искомой?

@Catstail · 22.06.2014, 14:48

Эта строчка "работает" в том случае, когда очередной элемент списка - не X и не Y. В этом случае его нужно сохранить, т.е. присоединить первым к результату применения функции на хвосте списка.

@~~ur_naz~~ · 22.06.2014, 16:17

Сообщение от Мусульманин

Помогите разобраться в чём моя ошибка, несколько дней уже верчу и так, и этак. Работаю с CLISP.

Lisp

(defun swap ( a b w / tmp)
  (subst b
        (setq tmp 'koran)
        (subst a b (subst tmp a w))))

@Мусульманин · 22.06.2014, 19:26 **[ТС]**

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

А разобраться с заданием религия не позволяет???

Вместо ничем не обоснованного сарказма, пиши по сути вопроса, либо не пиши вовсе, если чем-то что-то не устраивает. И вообще, вопрос уже решён, если ты не заметил.

@~~ur_naz~~ · 22.06.2014, 19:50

Сообщение от Мусульманин

Попробовал бы ты мне такое в глаза сказать

Это в каком университете учатся столь вежливые, интеллигентные люди?

@Мусульманин · 22.06.2014, 20:12 **[ТС]**

Что тебе надо, Юра? Пиши в личку, если угомониться не можешь, не надо флуда.

@~~ur_naz~~ · 22.06.2014, 21:24

Сообщение от Мусульманин

не надо флуда

Какой же тут флуд? Я тебе показал, что код со встроенным subst намного короче, как ни крути. Не хочешь с subst, вот тебе без subst.

Lisp

1
2
3

(defun swap (a b w)
  (mapcar #'(lambda (x)
              (cadr (member x (list a b a x x)))) w))

Как видишь, тут уже намного больше букаф.
Любишь рекурсию? Вот тот же метод...

Lisp

1 2	(defun swap (a b w &aux (x (car w))) (if w (cons (cadr (member x (list a b a x x))) (swap a b (cdr w)))))

это еще чуть больше...
или по простому

Lisp

1 2	(defun swap (a b w &aux (x (car w))) (if w (cons (cond ((eq x a) b)((eq x b) a) (x)) (swap a b (cdr w)))))

Еще +1
А религия тут действительно ни причем, это устойчивое выражение, если ты не в курсе

@castorsky · 22.06.2014, 23:34

Не по теме:

Мусульманин, Не обращайте внимания. В большинстве своем техно элита атеистического вероисповедания.

Lisp

;; racket
(define (foo new old lst)
  (map (lambda (i) (if (eq? i old) new (if (eq? i new) old i))) lst))
;(foo 'x 'y '(x y x y x y))
;'(y x y x y x)

@smoke853 · 22.06.2014, 23:47

Clojure:

Lisp

(defn task [a b coll]
  (let [acc (atom nil)]
    (doseq [v (reverse coll)]
      (cond (= v a) (swap! acc conj b)
            (= v b) (swap! acc conj a)
            :else (swap! acc conj v)))
    @acc))
;; => #'user/task
 
(task 'x 'y '(1 x a y 2 x y b 3 y x))
;; => (1 y a x 2 y x b 3 x y)

@Мусульманин · 23.06.2014, 07:53 **[ТС]**

ur_naz,

Не использовать встроенную функцию замены SUBST.

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

@korvin_ · 23.06.2014, 16:28

Не по теме:

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

техно элита

Смешно...

@castorsky · 23.06.2014, 19:18

Не по теме:

Скорее печально...

@Мусульманин · 15.03.2015, 18:30 **[ТС]**

JustForFun
F#

Код

open System

[<EntryPoint>]
let main (args : string[]) = 
    let s = Console.ReadLine()
    let substr = List.map(fun a -> match a with
                                      | 'x' -> 'y'
                                      | 'X' -> 'Y'
                                      | 'y' -> 'x'
                                      | 'Y' -> 'X'
                                      | _ -> a) (List.ofArray(s.ToCharArray()))
    printfn "%O" (new String(List.toArray(substr)))
    0

@Мусульманин · 24.10.2015, 19:35 **[ТС]**

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

Первую часть реализовал так

Lisp

(defun my-subs (mylist)
    (cond ((null mylist) nil)
          ((not (atom(car mylist))) (cons (my-subs (car mylist)) (my-subs (cdr mylist))))
          ((eq (car mylist) 'x ) (cons 'y (my-subs (cdr mylist))))
          ((eq (car mylist) 'y ) (cons 'x (my-subs (cdr mylist))))    
          (t (cons (car mylist) (my-subs (cdr mylist))))))
 
(my-subs '(q w (s c (y y y) x) y i))
 
=> (Q W (S C (X X X) Y) X I)

Со второй, вроде бы, ничего сложного, но вот такой код

Lisp

(defun my-subs (x y mylist)
    (cond ((null mylist) nil)
          ((not (atom(car mylist))) (cons (my-subs (car mylist)) (my-subs (cdr mylist))))
          ((eq (car mylist) x ) (cons y (my-subs (cdr mylist))))
          ((eq (car mylist) y ) (cons x (my-subs (cdr mylist))))      
          (t (cons (car mylist) (my-subs (cdr mylist))))))
 
(my-subs 'a 'b '(q w (s c (y y y) x) y i))

Вызывает ошибку "Слишком мало параметров - 1, вместо как минимум 3-х". Помогите разобраться.

@Lambdik · 24.10.2015, 20:03

Везде где вызывается my-subs нужно указывать все параметры например вместо

Lisp

1	(my-subs (cdr mylist))

нужно

Lisp

1	(my-subs x y (cdr mylist))

В тестовом примере нет символов a и b в списке:

Lisp

1	(my-subs 'x 'y '(q w (s c (y y y) x) y i))

теперь меняет x и y

@Мусульманин · 25.10.2015, 07:55 **[ТС]**

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

нужно
1
(my-subs x y (cdr mylist))

Надо же, такая нелепая оплошность, а два часа мучился. Спасибо.

Добавлено через 11 часов 40 минут
Теперь можно передавать в параметрах списки. Надеюсь, что задача исчерпана)

Lisp

(defun foo (x y L)
    (cond ((null L) nil)
          ((not (atom(car L))) (if (equal (car L) x) (cons y (foo x y (cdr L))) 
                                   (if (equal (car L) y) (cons x (foo x y (cdr L))) (cons (foo x y (car L)) (foo x y (cdr L))))))
          ((equal (car L) x) (cons y (foo x y (cdr L))))
          ((equal (car L) y) (cons x (foo x y (cdr L))))      
          (t (cons (car L) (foo x y (cdr L))))))
 
(foo '(y y y) 'x '(q w (s c (y y y) ((x x)) x y z)))

@nullxdth · 27.10.2015, 14:55

Сообщение от Мусульманин

fun a -> match a with

Boilerplate. Для этого в OCaml и F# есть специальный сахар (см. function ключевое слово).

Добавлено через 8 часов 36 минут

Lisp

(defun f (list)
  (mapcar (lambda (a)
            (case a
              (x 'y)
              (y 'x)
              (otherwise a)))
          list))

@Catstail Модератор 37302 / 20736 / 4272 Регистрация: 12.02.2012 Сообщений: 34,127 Записей в блоге: 14
	22.06.2014, 14:48	4
	Эта строчка "работает" в том случае, когда очередной элемент списка - не X и не Y. В этом случае его нужно сохранить, т.е. присоединить первым к результату применения функции на хвосте списка. 3

@Мусульманин 13 / 13 / 1 Регистрация: 24.09.2012 Сообщений: 61
	22.06.2014, 19:26 [ТС]	6
	Сообщение от ur_naz А разобраться с заданием религия не позволяет??? Вместо ничем не обоснованного сарказма, пиши по сути вопроса, либо не пиши вовсе, если чем-то что-то не устраивает. И вообще, вопрос уже решён, если ты не заметил. 0

@~~ur_naz~~ Заблокирован
	22.06.2014, 19:50	7
	Сообщение от Мусульманин Попробовал бы ты мне такое в глаза сказать Это в каком университете учатся столь вежливые, интеллигентные люди? 0

@Мусульманин 13 / 13 / 1 Регистрация: 24.09.2012 Сообщений: 61
	22.06.2014, 20:12 [ТС]	8
	Что тебе надо, Юра? Пиши в личку, если угомониться не можешь, не надо флуда. 0

@Мусульманин 13 / 13 / 1 Регистрация: 24.09.2012 Сообщений: 61
	23.06.2014, 07:53 [ТС]	12
	ur_naz, Не использовать встроенную функцию замены SUBST. Ты сам задание-то читал? И к совершенствованию кода стремиться для меня сейчас не приоритет, меня вполне устроит начальное решение с поправками для первого раза. Дальше, возможно, будут претензии на перфекционизм, но явно не нынче. 0

@korvin_
	23.06.2014, 16:28 #13
	Не по теме: Сообщение от castorsky техно элита Смешно... 0

@castorsky
	23.06.2014, 19:18 #14
	Не по теме: Скорее печально... 0