Программа на Clisp

Здравствуйте, подскажите пожалуйста как написать данный вариант программы. Преподаватель вместе с нами учится этому языку и не может ничем помочь, задания он берет с openedu. Пишем мы на clisp. Вот самое задание:



а вот что я начал писать:
строку входящую я писал так как в примере т.е. (((1.8 5 #\B "may") ("the" 2.25 1.3 4) (17 0 "force" 55)) (("be" #C(0 1) 5.02 99) ("with" 1.1 (#\Y #\N) 0.87) ("you!" #C(2.2 3.3) 42 4.2)))

В своём коде я пытался создать в переменную arr массив, потом считать его туда, ну и в конце просто вывести. На что мне интерпретатор пишет: "The function COMMON-LISP-USER::ARR is undefined." Я даже понять не могу.

Спасибо всем заранее, что сюда заглянули. На вас последняя надежда.

0

Сообщение от Catstail а еще лучше вот этоon't Loop, Iterate!

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

К циклам а-ля паскаль я добавил repeat, потому что он есть в учебниках Кушниренко. Правда, в качестве последовательностей я бы всё-таки взял списки, а не массивы, потому что знать в лиспе массивы и не знать списки - совсем уж дико. А для прохода списка нужен свой цикл, по номеру - нехорошо. Тогда уж и across для строк.

3

Добрый вечер!

Сообщение от helter (defparameter arr (read)) Это нехорошо, см. выше мою простыню пятилетней давности.

Да,я понимаю и читала, однако в сложившихся обстоятельствах, и режиме жесткого дедлайна вынуждена была описать так, как говорится в лекциях (в том числе в теле самого задания).

Сообщение от helter Смотрите, насколько лучше с отступами. Без отступов невозможно понять, что это вложенные циклы.

За это отдельное спасибо.

Сообщение от helter В этом: (array-dimension (make-array (array-dimensions arr)) 0) чувствуется метод тыка.

Метод тыка чувствуется, потому что, грубо говоря, это он и есть.

Сообщение от helter Вы хотите, чтобы i принимала значения от 0 до (array-dimension arr) минус один. Почему тогда так и не написать? (array-dimension (array-dimensions arr 0)). Вопрос на понимание: что делает ваше выражение?

Так как массив многомерный, а мне надо получить 3 индекса по одному из каждого измерения. Я создаю массив из array-dimensions (получаю, например, 2 3 4) и через array-dimension получаю доступ к определенному параметру массива к 2 в первом цикле, к 3 во втором, к 4 в третьем и прогоняю переменные через все измерения массива и получаю 3 параметра к каждому значению массива для aref. Может я что-то не так поняла, и можно было по другому, такое вполне может быть.

Сообщение от helter (setf e (incf (cdr e))) Здесь setf не выполняет никакой функции. Этот оператор изменяет значение переменной ― в данном случае, переменной по имени E. Вы говорите: я хочу, чтобы буквой e теперь обозначалось значение, которое вернуло выражение (incf (cdr e)). Вопрос на понимание: а какое значение оно вернуло?

Если честно, то не очень понимаю, эта часть кода из лекции. На нативном уровне оно плюсует единицу во вторую конс-ячейку повторяющегося в массиве arr значения, которое ранее было записано как ключ в первой конс-ячейке одного из значений alist.

Сообщение от helter Первую часть решения можно записать в виде функции: Lisp 1 2 3 4 5 6 7 8 9 10 11 12 (defun frequencies (arr)   (let ((alist '()))     (dotimes (i (array-dimension arr 0))       (dotimes (j (array-dimension arr 1))         (dotimes (k (array-dimension arr 2))           (let ((e (assoc (aref arr i j k) alist)))             (if e                 ;нашли - увеличиваем счетчик                 (incf (cdr e))                 ;не нашли - добавляем пару со значением счетчика                 (push (cons (aref arr i j k) 1) alist))))))     alist)) По массиву она составляет список частот.

Спасибо, я обязательно это испробую ваши подсказки в дальнейшем. Но, так как дедлайны горели, а обучение продолжать надо не смотря ни на что, я использовала то, что поняла и сделала так, как умею.
В итоге, на задание:

Прочитать трехмерный массив, содержащий строки, из стандартного потока ввода. Необходимо определить, какая строка встречается в массиве чаще всего, и вывести на экран количество вхождений. Пример: Дан трехмерный массив #3A((("R" "Lisp" "Python" "perl") ("C" "Lisp" "Pascal" "D")) (("SQL" "Java" "Pascal" "Lisp") ("Nemerle" "R" "Julia" "piet")) (("C++" "Oberon" "C" "Pascal") ("Lisp" "Python" "Ruby" "FORTRAN"))) Прочитать его из стандартного потока ввода можно с помощью следующей инструкции: (defparameter arr (read)) Это массив размерности 3x2x4 (вспомните, как узнать размерность массива во время выполнения программы?). Чаще всего в нем встречается строка "Lisp" – количество вхождений этой строки равно 4, этот результат и нужно вывести в стандартный поток вывода. Подсказка: для того, чтобы определить, сколько раз в массиве встречается каждый элемент, можно использовать ассоциативные списки.

Мой код выглядит следующим образом:
Ваш совет, к сожалению, я использовать не успела, так как скорость моего кодинга оставляет желать лучшего. Да и понимаю я все это "со-скрипом".

Сообщение от helter Если бы я учил человека программированию, используя CL (например, в духе учебников информатики Кушниренко), я бы не вводил циклы dotimes и пр. Я бы ограничился, например, следующими вариантами loop, которые предложил бы воспринимать как независимые операторы.

Я не устаю вас благодарить, за ценные советы. Запишу учебник Кушниренко в todo-list. А ваши варианты разберу и буду использоваь и использовать в дальнейшем.

0

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

0

Ну. Например, у вас массив 2х3х4, и вас интересует, как получить эти размерности ― 2, 3, 4. Здесь есть два способа. Если нужны все сразу, то можно воспользоваться функцией array-dimensions, которая вернёт список из этих размерностей: (2 3 4). Если же требуется узнать одну размерность ― вдоль конкретной оси ― то можно воспользоваться функцией array-dimension, которая принимает массив и номер оси. Например, (array-dimension arr 0) в данном случае дало бы 2, а (array-dimension arr 1) дало бы 3. (Нумерация всего, связанного с массивами, в CL начинается с нуля.)

А что делаете вы? make-array создаёт массив указанной размерности. Вы вычисляете полную размерность массива arr, создаёте новый массив такой же размерности и вычисляете размерность этого массива вдоль оси с помощью array-dimension. Конечно, промежуточный массив не нужен. Если вам нужна размерность оси номер 0 массива arr, вы можете узнать её непосредственно как (array-dimension arr 0).

Сообщение от Owl_L Если честно, то не очень понимаю, эта часть кода из лекции. На нативном уровне оно плюсует единицу во вторую конс-ячейку повторяющегося в массиве arr значения, которое ранее было записано как ключ в первой конс-ячейке одного из значений alist.

Да. Это делает incf. Три вещи: 1) вычисляет новое значение 2) куда-то записывает его (в данном случае ― в cdr, и это немного магия) 3) возвращает его. (Это особенность лиспа ― всякое выражение возвращает значение, даже если мы вычисляли его и не для получения значения.) А setf что делает? Он присваивает возвращённое incf-ом значение (значение частоты ― число!) переменной e, которая, к счастью, дальше не используется.

Сообщение от Owl_L Запишу учебник Кушниренко в todo-list.

Ну, это смотрите. Это школьные учебники, в которых используется КуМир ― не знаю, насколько вам это интересно. У Кушниренко ещё есть более серьёзный учебник «Программирование для математиков», который, надо полагать, может быть полезен не только математикам. Там в основном псевдокод.

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

1

Сообщение от helter У Кушниренко ещё есть более серьёзный учебник «Программирование для математиков», который, надо полагать, может быть полезен не только математикам.

Качнул на посмотреть. Оказалось, любопытненькая веСЧь. Но! Положим рядом трёхтомник Кнута, и окажется что там охват материала гораздо ширее (или ширше, я не знаю).

0

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

А Кнута я, честно говоря, не читал и не думаю, что когда-нибудь буду читать.

0

helter, вам уже и не нужно, студентам же.

0