Fonction Haskell qui applique alternativement les fonctions unaires d'entrée

Question

J'essaie d'écrire une fonction Haskell qui prend deux fonctions unaires (f et g) et une liste de nombres (ns) et applique alternativement ces fonctions d'entrée f et g aux éléments de la liste entrée.

Par exemple:

func double square [2, 3, 4, 5, 6] 

retournerait

[4, 9, 8, 25, 12] 

J'utilise WinGHCi pour mon compilateur. Toute aide sur l'écriture de cette fonction serait appréciée, merci.

Answer 1

Si vous ne souhaitez pas utiliser les fonctions de la bibliothèque, vous pouvez le faire en utilisant récursion:

func _ _ []  = [] 
func f g (x:xs) = f x : func g f xs 

Answer 2

Juste une solution simple ...

fun :: (a -> b) -> (a -> b) -> [a] -> [b] 
fun f g = reverse . snd . foldl step (0,[]) 
      where 
      step (c,ac) x = (c + 1, (if even c then f x else g x) : ac) 

Puisque vous ne souhaitez pas utiliser les fonctions de la bibliothèque, vous pouvez reproduire le même résultat sans utiliser foldl. L'idée est simple d'utiliser un compteur pour savoir quelle position est égale ou non.

Editer: J'ai fait un peu de confusion sur mon accumulateur. Maintenant, c'est correct.

Answer 3

expansion sur le commentaire de @ Luqui:

func f1 f2 l = zipWith ($) (cycle [f1, f2]) l 

Si vous ne souhaitez pas utiliser les fonctions de bibliothèque, il suffit de regarder leurs implémentations, ils sont assez simples.