Полезные коды

Поиск циклов функции

Поиск циклов в последовательности методом Флойда.

Программа-тест
  1. m :: Int
  2. m = 441
  3.  
  4. gen :: Int -> Int
  5. gen x = x*x `mod` m
  6.  
  7. main :: IO ()
  8. main = putStrLn $ show $ findCycle gen 2
  9.  
  10. findCycle :: (Eq a) => (a -> a) -> a -> Int
  11. findCycle f x0 = countDistance x0 1

Простой редактор куков

Просмотр/изменение/добавление печеньков
Куки разделени запятой, чтоби добавить новие печеньки допиши:
cookie_name=cookie_value
Дополнительные параметри пишем через точку с запятой:
cookie_name=cookie_value; path=/; expires=
06/10/2016 00:00:00; domain=.annimon.com;

Скачать mp3 с ВК

Для мобильной версии сайта делает поле с ссылкой на mp3 файл видимым. Бм кому-то понадобится

Текстовые файлы

Задание: составьте алгоритм и программу обработки матрицы произвольного размера. Исходные данные (элементы матрицы) подготовьте в текстовом файле. Результаты работы вместе с исходными данными выведите в текстовый файл результатов.
Способ обработки данных: вычислить минимальный элемент

Работа с массивами

Задание: вычислить минимальный элемент матрицы, лежащий ниже главной диагонали.
Tестовые примеры: m=4
n=3
A=
  1. [-6  3  4]
  2. [ 5  0  8]
  3. [-2 -1  0]
  4. [ 3  9  1]
_______
emin=-2
Всего: 541
<< 1 ... 26 27 28 29 30 ... 109 >>

Реклама

Мы в соцсетях

tw tg yt gt