Show und Read-Instanz für einen Datentyp mit Funktionen

Question

Ich habe einen Datentyp, der einen Funktionswert enthält und ich möchte show und read es. Ich weiß, dass ich die Funktion nicht zurück lesen kann, deshalb möchte ich eine Möglichkeit, die Funktion beim Lesen anzugeben.

Hier ist meine Datentyp:

type Activation = (Vector Double -> Vector Double, Vector Double -> Vector Double) 

    data Layer = L { biases  :: !(Vector Double) 
       , nodes  :: !(Matrix Double) 
       , activation :: Activation 
       } 

    instance Show Layer where 
    show (L biases nodes _) = "(" ++ show biases ++ "," ++ show nodes ++ ")" 

Und ich möchte eine Funktion wie folgt aus:

readLayer :: String -> Activation -> Layer 

Wie würde das funktionieren?

Vielen Dank im Voraus

Answer 1

Wegen der Art und Weise, Sie dies nur tun, um eine Schicht zu zeigen gewählt werden:

readLayer str f = 
    let (biases, nodes) = read str 
    in Layer { biases = biases, nodes = nodes, activation = f } 

Das heißt, Ihre Show-Instanz für eine Schicht ist, ist das gleiche wie die Show-Instanz für (Vektor doppelt, Matrix doppelt).

Die Dinge würden komplizierter, wenn das nicht der Fall wäre.