Brunni > il y a une fonction length en haskell, pas besoin de réinventer la roue

carre list = all (== (length list)) list