wireworld haskell нужна помощь

Question

Мне нужно сделать проводное соединение, и я хочу поместить функцию внутри другой функции («help1»), но я не могу заставить ее работать, есть несколько файлов. вот что у меня есть

module Transitions.For_List_2D (
    transition_world -- :: List_2D Cell -> List_2D Cell 
) where 

import Data.Cell (Cell) 
import Data.Cell (Cell (Head, Tail, Conductor, Empty)) 
import Data.Coordinates 
import Data.Coordinates (Distance,X_Coord,Y_Coord,Coord,Element_w_Coord,) 
import Data.List_2D 
-- Replace this function with something more meaningful: 

transition_world :: List_2D Cell -> List_2D Cell 
transition_world w = case w of 
         [] -> [] 
         x:xs -> transition_cell x : transition_world xs 


transition_cell :: Element_w_Coord Cell -> Element_w_Coord Cell 
transition_cell a = case a of 
         (Head,(x_coord,y_coord)) -> (Tail, (x_coord,y_coord)) 
         (Tail,(x_coord,y_coord)) -> (Conductor, (x_coord,y_coord)) 
         (Empty,(x_coord,y_coord))-> (Empty, (x_coord, y_coord)) 
         (Conductor,(x_coord,y_coord)) -> (i want to put working function here) 


help1 :: Coord -> List_2D Cell -> List_2D Cell 
help1 a = case a of 
     x:xs 
     (Conductor, (x_e, y_e))-> List_2D.local_elements(element, (x_e, y_e)): help1 xs 

local_element является функцией на другой файл, который я хочу использовать также, если требуется, чтобы просмотреть любую ВЭ другие файлов, просто спросите спасибо любой помощи очень ценится

Answer 1

Вашей help1 функции ожидает два аргумента, но вы даете только один аргумент.

попробовать что-то вроде

help1 coord world = case world of 

Попробуйте сделать свою лабораторию на рекурсии над списками, и прекратить размещение вопросов назначения на переполнение стека, особенно с вашим настоящим именем.