Discussion :

[vasilpapa]

Bonjour,
C'est la première fois que j'ai ce type de message et je ne trouve pas la raison
----message : TrianguloidFraction.hs:51:9:
parse error (possibly incorrect indentation or mismatched brackets)

Code complet est visible dans mon post précédent.
Pourriez-vous m'aider svp ? Merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
listOfPoints 0 _ _ _ _ _= []
listOfPoints n b x y m l = point : listOfPoints (n-1) b' x' y' m' l' 
  where
	b' = b
 
	if b <= 1/3 
		then choix1x x y
		else if b <= 2/3
			then choix2x x y
			else choix3x x y
 
	if b <= 1/3                        --ligne 51
		then choix1y x y
		else if b <= 2/3
			then choix2y x y
			else choix3y x y	
 
	m'= round(sqrt((200*x')^2+(133.4*y')^2))
    	l' = 5*m'
    	point = translate (200*x') (133.4*y') (color (myColor (l')) (circle 1.0))

[stendhal666]

Euh... je comprends pas ce que tu veux faire là?

déjà tu écris deux fois la même chose:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
-- 1         if b <= 1/3 
		then choix1x x y
		else if b <= 2/3
			then choix2x x y
			else choix3x x y
 
--2	if b <= 1/3                        --ligne 51
		then choix1y x y
		else if b <= 2/3
			then choix2y x y
			else choix3y x y

Et juste avant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 where
	b' = b

tu viens de substituer b à b', alors pourquoi ne pas écrire tout simplement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

listOfPoints n b x y m l = point : listOfPoints (n-1) b x' y' m' l'

?

Si tu voulais bien expliquer en pseudo code ce que tu veux faire...

[stendhal666]

En fait, je me demande si tu ne veux pas dire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
listOfPoints 0 _ _ _ _ _= []
listOfPoints n b x y m l = point : listOfPoints (n-1) (nxt b) x' y' m' l' 
  where
	nxt z
            | z <= 1/3 = choix1x x y
            | z <= 2/3 = choix2x x y
            | otherwise = choix3x x y
	m'= round(sqrt((200*x')^2+(133.4*y')^2))
    	l' = 5*m'
    	point = translate (200*x') (133.4*y') (color (myColor (l')) (circle 1.0))

[vasilpapa]

Oui, les gardes marchent, mais pas if.