Найти все латинские квадраты размера 5

@oolegg · Регистрация: 10.07.2014

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

Есть ли другой алгоритм поиска?

Кликните здесь для просмотра всего текста

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
let n = 5
let rec chaos_a = function
    | 0|1 -> 1
    | n   -> n*chaos_a (n-1) + (n-1)*chaos_a (n-2)
let rec permute_m x = function
    | [] -> []
    | h::t when h = x -> permute_m x t
    | h::t -> h::permute_m x t
let rec permute = function
    | [] -> [[]]
    | n  -> [for i in n do for j in permute (permute_m i n) -> i::j]
let comparison a b = not (List.exists2 (=) a b)
let chaos x = List.filter (fun e -> comparison [1..x] e) (permute [1..x])|>Array.ofList 
let rec comparison_m = function
    | [a;b] -> comparison a b
    | h::t ->if not (List.exists (fun e -> comparison h e = false ) t) = false then false else comparison_m t 
let rec combinations = function
    | [] -> [[]]
    | s :: t -> [ for i in s do for j in combinations t -> i::j]
[for j in 0..n-2 -> [for i in 0..chaos_a(n-2)-1 -> (chaos n).[i+j*chaos_a(n-2)]]]
|>combinations 
|>List.filter(fun e -> comparison_m e )
|>List.iter  (fun e ->[1..n]::e
                   |>array2D
                   |>printfn "\n%A")

@pycture · 01.08.2014, 20:28

oolegg, думаю вопрос о существовании различных алгоритмов стоит задат в соотвествующем разделе.
Здесь лучше реализации обсуждать

@oolegg · 01.08.2014, 21:03 **[ТС]**

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

oolegg, думаю вопрос о существовании различных алгоритмов стоит задат в соотвествующем разделе.
Здесь лучше реализации обсуждать

Да точно, извините (не знал что есть такой раздел).Просто вы мне примеры иногда подкидываете (пищу для ума так сказать).

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@pycture 1195 / 588 / 88 Регистрация: 20.09.2012 Сообщений: 1,881
	01.08.2014, 20:28
	oolegg, думаю вопрос о существовании различных алгоритмов стоит задат в соотвествующем разделе. Здесь лучше реализации обсуждать 1