Необходимо написать программу на Erlang, которая будет рекурсивно умножать элементы матрицы 100 на 100

@ZiX-MaX · Регистрация: 08.01.2017

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

Здравствуйте, программирую довольно давно, но на Erlang начал только не давно. Нашел на этом же форуме как задавать случайную матрицу, однако уже который день долблюсь и не могу подсчитать умножение всех элементов матрицы. Прошу мне помочь с этим, пока я знаю только основы Erlang, так что желательно максимально не сложный додумать код. Пока есть мысли, что необходимо произвести умножение сгенерированой матрицы (тут она по факту строка) путем задания рекурентной функции по типу: fun(_) -> lists:nth(N,A) * lists:nth(N + 1, A), где A - сгенерированая рандомная матрица, а N - элемент матрицы. Но как это запихнуть в имеющийся код, не имею понятия, логика языка после программирования на Pascal и Delphi, просто выбешивает.
Собственно пока что есть:

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
-module(rm).
-export([genRandMatrix/2]).
 
%Генерация  строки
 
genRandMatrix(Size,MaxValue)->random:seed(),
A = fun(_) -> 
lists:map(
  fun(_) -> random:uniform(MaxValue+1)-1 
  end,
  lists:seq(1,Size))
 end,
    lists:seq(1,Size).

@S_el · 09.01.2017, 00:24

Какой смысл представлять матрицу в виде строки?

Не по теме:

Сообщение от ZiX-MaX

логика языка после программирования на Pascal и Delphi, просто выбешивает.

А что конкретно?

P.S. Форматируйте код специальными тегами. В таком виде его вообще не реально читать.

@ZiX-MaX · 09.01.2017, 02:17 **[ТС]**

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

Какой смысл представлять матрицу в виде строки?

Не по теме:

А что конкретно?

P.S. Форматируйте код специальными тегами. В таком виде его вообще не реально читать.

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

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

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

Какой смысл представлять матрицу в виде строки?

Не по теме:

А что конкретно?

P.S. Форматируйте код специальными тегами. В таком виде его вообще не реально читать.

А за совет, спасибо. Я недавно тут

@S_el · 09.01.2017, 02:43

Сообщение от ZiX-MaX

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

Простой - в виде списка списков.
Хороший - сделать отдельным модулем, где хранить и размерности и выполнять все проверки.
Правильный - в зависимости от требований к реализации.

Пример генерации случайной матрицы:

Prolog
1
2
3
gen_rand_matrix({Rows,Columns},MaxValue)->
    Rand = fun() -> random:uniform(MaxValue+1)-1 end,
    [[Rand()||_<-lists:seq(1,Columns)]||_<-lists:seq(1,Rows)].

Пробуйте сделать умножение. Если не получится все равно показывайте наработки.

Добавлено через 6 минут
А, кажется я понял откуда вы код взяли. Из этой темы:
Перемножение матриц
Приятно видеть, что твоим кодом кто-то пользуется. И то, что через какое-то время пишешь более читабельный код тоже

Осталось выяснить почему это называется генерацией строки.

@ZiX-MaX · 09.01.2017, 03:53 **[ТС]**

Спасибо, попробую допереть, как делать умножение

Добавлено через 8 минут
Есть вопрос: А я могу сделать умножение как другую функцию, но в этом модуле? Не ото прошлые мои попытки не увенчались успехом

Добавлено через 10 минут
по поводу доработок, первый вариант (как пример) :

Prolog
1
2
3
4
5
-module(multlist).
-export([multi/2]).
[CODE]
multi(N, A) when N  >= length(A)    ->
lists: nth(N, A)* lists: nth(N + 1 , A).

// Однако этот способ не работает. Ругается на то, что N в конце выходит за рамки, похоже.
P.S. Прошу сильно на меня не ругаться, я только начал изучать этот язык, так что могу писать чушь со стороны знающего человека

@S_el · 09.01.2017, 15:35

Ваша основная проблема в том, что вы думаете, будто программирование на Erlang сильно отличается от программирования на другом языке программирования. На таких задачах разница будет практически не заметна.
Раз вы уже умеете программировать, то не буду разбирать алгоритм, а остановлюсь только на реализации.
В качестве примера возьму C#, т.к. Pascal и Delphi не знаю, но думаю там циклы точно такие-же.

C#
1
2
3
4
5
6
7
8
9
    for(int i = 0; i < n; i++)
            for (int j = 0; j < m; j++)
            {
                double sum = 0.0;
                for (int k = 0; k < l; k++)
                    sum += a[i, k]*b[k, j];
                result[i, j] = sum;
            }
        return result;

Для начала отсечем неподходящие матрицы:

Prolog
1
2
mult(A,B) when length(hd(A))=:= length(B)->
    mult(A,B,length(A),length(hd(B)),length(hd(A))).

Дальше задача состоит из 2 внешних циклов и суммирования внутреннего.
Теперь смотрим на выходной тип данных. Раз нужно получить матрицу - значит делаем матрицу:

Prolog
1
[[Sum(I,J)||J<-Range(1,M)] || I<-Range(1,N)]

здесь цикл представлен генератором списков. Range функция генератор, в данном случае псевдоним для библиотечной:

Prolog
1
Range = fun lists:seq/2,

Теперь определяем функцию суммирования:

Prolog
1
2
Sum = fun(I,J)->
        lists:sum([Nth(K,Nth(I,A))*Nth(J,Nth(K,B)) || K<-Range(1,L)]) end

для собственно суммирования снова обращаемся к стандартному модулю lists, цикл - генератор списка.
Вместо индексирования вызываем функцию Nth, в данном случае это снова псевдоним:

Prolog
1
Nth = fun lists:nth/2,

Как видите четко прослеживается соответствие. Отличие только в порядке написания индексов.Но если вам очень захочется можно написать функцию или даже целый модуль обертку, чтобы вызывать функции в удобном для вас виде, например

Prolog
1
2
3
get_elem(I,J,Matrix) ->
Nth = fun lists:nth/2,
 Nth(J,Nth(I,Matrix)).

Хотя, конечно, писать на одном языке как на другом - плохая практика. Но научится выбирать более правильный подход можно только с опытом.

Сообщение от ZiX-MaX

P.S. Прошу сильно на меня не ругаться, я только начал изучать этот язык, так что могу писать чушь со стороны знающего человека

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

@ZiX-MaX · 10.01.2017, 15:02 **[ТС]**

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

@ZiX-MaX · 12.01.2017, 15:29 **[ТС]**

Хотелось бы уточнить что означает эта часть программы: Nth = fun lists:nth/2

@S_el · 12.01.2017, 18:08

Сообщение от ZiX-MaX

Хотелось бы уточнить что означает эта часть программы: Nth = fun lists:nth/2

Определяем псевдоним для функции nth из стандартного модуля lists.

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@ZiX-MaX 0 / 0 / 0 Регистрация: 08.01.2017 Сообщений: 5
	10.01.2017, 15:02 [ТС]
	Спасибо, я позже разберу. На Си я тоже немного программировал, так что текст программы мне понятен. 0

@ZiX-MaX 0 / 0 / 0 Регистрация: 08.01.2017 Сообщений: 5
	12.01.2017, 15:29 [ТС]
	Хотелось бы уточнить что означает эта часть программы: Nth = fun lists:nth/2 0

Необходимо написать программу на Erlang, которая будет рекурсивно умножать элементы матрицы 100 на 100

Решение