Добавление зависимостей

@Apprentice · Регистрация: 29.05.2011

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

Доброго времени суток.
Хочу прогнать много различных реализаций функции, объявленных в отдельных файлах, через свою, но не знаю как задать зависимость динамически. Хотелось бы передавать его либо как параметр System.Environment в тело своей функции, либо как доп. зависимость на этапе вызова чтобы при обходе скриптом всех реализаций в папке и передавая их как параметр у меня считались и выводились значения функции в консоль или файл.

Реализации:
test1.hs

Haskell
1
2
3
4
5
6
module Test
       ( operation 
       ) where
 
operation :: Integer -> Integer -> Integer
operation a b = a + b

test2.hs

Haskell
1
2
3
4
5
6
module Test
       ( operation 
       ) where
 
operation :: Integer -> Integer -> Integer
operation a b = a * b

либо как то добавляя модуль через System.Plugins.Load параметром System.Environment
main.hs

Haskell
1
2
3
4
5
6
7
8
9
10
11
import System.Environment
import System.IO
import Data.List
 
main = do
args <- getArgs  
putStrLn "Test realization:"  
putStrLn head args  
--import head getArgs
loadModule head getArgs
putStrLn foldr operation 0 [1,2,3]

либо как то на этапе вызова интерпретатором..
:load .\\main.hs .\\test1.hs

Возможно ли такое?

@Curry · 09.04.2016, 10:09

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

при обходе скриптом всех реализаций в папке

Почему бы не вызывать в скрипте runhaskell Main.hs Test1.hs или stack runhaskell Main.hs Test1.hs , (смотря как Вы Haskell установили) каждый раз меняя имя второго файла?

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

@Apprentice · 09.04.2016, 10:30 **[ТС]**

То что надо) А я пытался компилятору скармливать.. Теперь можно юнит-тестирование сделать для множества различных реализаций одной и той же функции. Спасибо.

@Araneo · 09.04.2016, 12:01

KolodeznyDiver, а если ему нужен тест на эффективность? Что-то я не помню, чтобы рунхаскель проводил оптимизации...
P.S. Я бы в такой ситуации лез в Template Haskell и писал функцию делающую вклейку названия импортируемого модуля на основании конфигурационного файла считываемого во время компиляции.

@Curry · 09.04.2016, 12:16

Araneo, кто мешает откомпилировать (ghc), а потом запустить на выполнение для каждого варианта? Или генерировать Main.hs с множеством квалифицированных импортов как любой текстовый файл. А сделать

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

вклейку названия импортируемого модуля

через TH, кажется, нельзя. Может можно написать такой плагин к ghc, но я в ту сторону не копал.

@Araneo · 09.04.2016, 12:39

>через TH, кажется, нельзя
Вроде можно.
http://hackage.haskell.org/pac... ll-TH.html
Constructors ModuleInfo [Module] Contains the import list of the module. Если я правильно понимаю, это оно.

> кто мешает откомпилировать (ghc), а потом запустить на выполнение для каждого варианта?
Мы не ищем лёгких путей, дашь велосипедостроение всем и каждому

@Curry · 09.04.2016, 12:46

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

Вроде можно

Через этот тип, возвращаемый reifyModule, можно только узнать какие модули импортированы.

@Araneo · 09.04.2016, 15:11

Однако

Мысль писать промежуточный модуль где TH будет собирать функции вида f1 = Test1.f1, f2 = Test2.f2... мне не нравится совершенно.

@Curry · 09.04.2016, 15:20

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

Мысль писать промежуточный модуль где TH будет собирать функции вида f1 = Test1.f1, f2 = Test2.f2... мне не нравится совершенно.

Зачем это делать?

@Araneo · 09.04.2016, 15:57

KolodeznyDiver, можно попробовать придумать, но на самом деле, как мне кажется, это вещь которую лучше не делать

))

@Curry · 09.04.2016, 16:05

Не по теме:

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

Мысль писать промежуточный модуль ... мне не нравится совершенно.

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

можно попробовать придумать, но на самом деле, как мне кажется, это вещь которую лучше не делать ))

Зачем придумывать зачем делать то, что не нравится?

@Araneo · 09.04.2016, 16:36

Не по теме:

Мазохизм :)))

@Nameless One · 09.04.2016, 19:55

Conditional compilation?

HelloGerman.hs:

Haskell
1
2
3
4
5
6
module HelloGerman
       ( hello
       ) where
 
hello :: String
hello = "Hallo, Welt"

HelloEnglish.hs:

Haskell
1
2
3
4
5
6
module HelloEnglish
       ( hello
       ) where
 
hello :: String
hello = "Hello, World"

Hello.hs:

Haskell
1
2
3
4
5
6
7
8
9
10
11
{-# LANGUAGE CPP #-}
 
module Hello
       ( hello
       ) where
 
#ifdef GERMAN
import HelloGerman (hello)
#else
import HelloEnglish (hello)
#endif

Main.hs:

Haskell
1
2
3
4
5
6
module Main where
 
import Hello (hello)
 
main :: IO ()
main = putStrLn hello

Собираем англоязычную версию:

Bash
1
2
3
$ stack clean && stack build && stack exec hello-exe
[...snip...]
Hello, World

Собираем немецкую версию:

Bash
1
2
3
$ stack clean && stack build --ghc-options=-DGERMAN && stack exec hello-exe
[...snip...]
Hallo, Welt

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

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

Теперь можно юнит-тестирование сделать для множества различных реализаций одной и той же функции.

Для этого совсем не нужны такие дикие костыли.

@Curry · 09.04.2016, 20:42

Сообщение от Nameless One

Для этого совсем не нужны такие дикие костыли.

В Вашем варианте лишний файл. И если тестируемых файлов много, то он разрастается множеством #ifdef -ов.
Оно, конечно, дело вкуса. Лучше раскидать тестируемые файлы по подкаталогам, и вызывать

Bash
1
2
stack runhaskell  -- -iTest1 Main.hs
stack runhaskell  -- -iTest2 Main.hs

А если уж использовать препроцессор, то

Haskell
1
2
3
4
{-# LANGUAGE CPP #-}
import IMPORT_MODULE
 
main = print $ foldr operation 0 [1,2,3]

и тогда

Bash
1
2
stack runhaskell  -- -DIMPORT_MODULE=Test1 Main.hs
stack runhaskell  -- -DIMPORT_MODULE=Test2 Main.hs

@Nameless One · 10.04.2016, 04:51

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

В Вашем варианте лишний файл.

Там вообще все файлы кроме Main.hs лишние, пример-то искусственный. Смысл в том, что юнит-тестирование по-другому делается.

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

А если уж использовать препроцессор, то

Так будет чуть лучше, да.

Новые блоги и статьи Все статьи Все блоги /
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3, Box2D, FreeType и SDL3_ttf из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	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 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.

Добавление зависимостей

Решение

Решение

@Apprentice 5 / 5 / 0 Регистрация: 29.05.2011 Сообщений: 39
	09.04.2016, 10:30 [ТС]
	То что надо) А я пытался компилятору скармливать.. Теперь можно юнит-тестирование сделать для множества различных реализаций одной и той же функции. Спасибо. 0

@Araneo 650 / 260 / 16 Регистрация: 02.03.2014 Сообщений: 587
	09.04.2016, 12:01
	KolodeznyDiver, а если ему нужен тест на эффективность? Что-то я не помню, чтобы рунхаскель проводил оптимизации... P.S. Я бы в такой ситуации лез в Template Haskell и писал функцию делающую вклейку названия импортируемого модуля на основании конфигурационного файла считываемого во время компиляции. 0

@Araneo 650 / 260 / 16 Регистрация: 02.03.2014 Сообщений: 587
	09.04.2016, 12:39
	>через TH, кажется, нельзя Вроде можно. http://hackage.haskell.org/pac... ll-TH.html Constructors ModuleInfo [Module] Contains the import list of the module. Если я правильно понимаю, это оно. > кто мешает откомпилировать (ghc), а потом запустить на выполнение для каждого варианта? Мы не ищем лёгких путей, дашь велосипедостроение всем и каждому 0

@Araneo 650 / 260 / 16 Регистрация: 02.03.2014 Сообщений: 587
	09.04.2016, 15:11
	Однако Мысль писать промежуточный модуль где TH будет собирать функции вида f1 = Test1.f1, f2 = Test2.f2... мне не нравится совершенно. 0

@Araneo 650 / 260 / 16 Регистрация: 02.03.2014 Сообщений: 587
	09.04.2016, 15:57
	KolodeznyDiver, можно попробовать придумать, но на самом деле, как мне кажется, это вещь которую лучше не делать )) 0

@Araneo
	09.04.2016, 16:36
	Не по теме: Мазохизм :))) 0