Arhn - архитектура программирования

Есть ли способ сделать эту печать без списка внутри списка?

Я пишу программу-схему в dr Racket, которая принимает список чисел, представляющих матрицу, устанавливает элемент в списке на указанное число. Пока он работает для строки 1 столбца 1 случая и знает, где разместить число, но в любом другом случае он составляет списки списков. Я попытался сделать функцию, чтобы помочь, но все еще получаю ту же ошибку. Любая помощь будет принята с благодарностью. Ошибка, которую я получаю:

(матрица setCell 2 2 9) ((2 4 6 8) (1 (9 5 7)) (2 9 0 1))

я нуждаюсь

(матрица setCell 2 2 9) ((2 4 6 8) (1 9 5 7) (2 9 0 1))

Любая помощь будет принята с благодарностью.

(define Matrix '(( 2 4 6 8 )( 1 3 5 7)( 2 9 0 1)))

;getCell Matrix Row Column
;if i want row 2 col 2
(define (getCell Matrix Row Column)
  (if (= Row 1)
      (if (= Column 1)
          (car (car Matrix))
          (getCell (cons (cdr (car Matrix)) ()) Row (- Column 1))
       )
      (getCell (cdr Matrix) (- Row 1) Column)
  )
)
;> (getCell Matrix 1 1)
  ;2

;(define Matrix '(( 2 4 6 8 )( 1 3 5 7)( 2 9 0 1)))

;setCell Matrix Row Column Item
(define (setCell Matrix Row Column Item)
    (if (= Row 1)
          (if (= Column 1)
          (helpMe Matrix Item)
          (cons
           (cons (car (car Matrix))
                      (setCell (cons (cdr (car Matrix)) ()) Row (- Column 1) Item))
           (cdr Matrix))
       )
      (cons (car Matrix) (setCell (cdr Matrix) (- Row 1) Column Item))
  )
 )

 (define (helpMe Matrix Item)
      (cons (cons Item (cdr (car Matrix))) (cdr Matrix)))
  ;ERROR:
 ;>(setCell Matrix 2 2 9)
 ;((2 4 6 8) (1 (9 5 7)) (2 9 0 1))

 ;> (setCell Matrix 1 1 9)
 ;((9 4 6 8) (1 3 5 7) (2 9 0 1))
lisp scheme racket
30.10.2019

Ответы:


1

Это распространенная проблема. Основная идея - координата, форма структуры данных, хорошая абстракция, просмотр всех элементов, заданная координата получает соответствующее значение.

Здесь мы определяем верхний левый элемент как (1,1) (поэтому мы должны минус 1)

Сначала мы хотим построить такую ​​же матрицу. Во-вторых, каждое значение определяется функцией f. И вход f - это координата (i, j), поэтому f - функция обновления вызова функции. Вы можете установить любое правило. Как и общий вопрос, вам нужно построить диагональную матрицу, правило будет i = j. (Это красивая абстракция)

Это означает, что мы должны сделать эту координату

(0,0) (0,1) (0,2) ...                        (0,(length (first m))
(1,0) (1,1) (1,2)    ...                     (1,(length (first m))
(2,0 ...                                                          
...
(length of matrix),0)   ... ((length of matrix),(length (first m)))

Затем мы отправляем координату f. Таким образом, мы можем позволить f возвращать исходное значение во входной матрице, но когда i = строка и j = столбец, мы возвращаем новое значение (элемент). Та же идея, что вы можете построить вектор или другие, а не просто список. Эту же идею можно использовать для построения треугольного круга или чего-то еще, а не только прямоугольника.

#lang racket

(define (setCell  m row column item)
  (local ((define index-i (- row 1))
          (define index-j (- column 1))
          (define (f i j)
            (if (and (= i index-i) (= j index-j))
                item
                (list-ref (list-ref m i) j))))
    (build-list (length m) (lambda (i) (build-list (length (first m)) (lambda (j) (f i j)))))))


;;; TEST
(define k  
  '((1 2 3)
    (1 2 3)
    (1 2 3)))

(setCell k 1 1 100)
(setCell k 2 3 100)

(define k2  
  '((1 2 3)
    (1 2 3)))

(setCell k2 1 3 100)
(setCell k2 2 3 100)
30.10.2019

2

Я пишу программу-схему в dr Racket, которая принимает список чисел, представляющих матрицу, устанавливает элемент в списке на указанное число.

#lang racket

(define matrix-id (build-list 4 (λ (x) (build-list 4 (λ (y) (if (= x y) 1 2))))))
;; => '((1 0 0 0) (0 1 0 0) (0 0 1 0) (0 0 0 1))

;; [X] Number Number X [List-of [Lis-of X]] -> [List-of [Lis-of X]]
(define (set-mat row col item mat)
  (for/list ([l mat] [i (length mat)])
    (for/list ([e l] [j (length l)])
      (if (and (= i row) (= j col))
          item
          e))))

(set-mat 1 1 'fef matrix-id)
;; => '((1 0 0 0) (0 fef 0 0) (0 0 1 0) (0 0 0 1))
30.10.2019
Новые материалы
Коллекции публикаций по глубокому обучению
Последние пару месяцев я создавал коллекции последних академических публикаций по различным подполям глубокого обучения в моем блоге https://amundtveit.com - эта публикация дает обзор 25..
Представляем: Pepita
Фреймворк JavaScript с открытым исходным кодом Я знаю, что недостатка в фреймворках JavaScript нет. Но я просто не мог остановиться. Я хотел написать что-то сам, со своими собственными..
Советы по коду Laravel #2
1-) Найти // You can specify the columns you need // in when you use the find method on a model User::find(‘id’, [‘email’,’name’]); // You can increment or decrement // a field in..
Работа с временными рядами спутниковых изображений, часть 3 (аналитика данных)
Анализ временных рядов спутниковых изображений для данных наблюдений за большой Землей (arXiv) Автор: Рольф Симоэс , Жильберто Камара , Жильберто Кейрос , Фелипе Соуза , Педро Р. Андраде ,..
3 способа решить квадратное уравнение (3-й мой любимый) -
1. Методом факторизации — 2. Используя квадратичную формулу — 3. Заполнив квадрат — Давайте поймем это, решив это простое уравнение: Мы пытаемся сделать LHS,..
Создание VR-миров с A-Frame
Виртуальная реальность (и дополненная реальность) стали главными модными терминами в образовательных технологиях. С недорогими VR-гарнитурами, такими как Google Cardboard , и использованием..
Демистификация рекурсии
КОДЕКС Демистификация рекурсии Упрощенная концепция ошеломляющей О чем весь этот шум? Рекурсия, кажется, единственная тема, от которой у каждого начинающего студента-информатика..