Discussion :

[vasilpapa]

Il parait que le langage Haskell est un "langage de syntaxe légère",
permettant grâce à ses "fonctions supérieures d'écrire rapidement des
programmes faisant des chose assez compliquées". Bon.
Voici un petit programme en Visual Basic 6, dessinant une petite fractale
bien connue :...

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Load()
    For i = 0 To 3000
        For j = 0 To 3000
            If (i And j - i) = False Then PSet (i, j)
        Next j
    Next i
End Sub

Et voici le résultat :

Et en Haskell, ça donne quoi ?
Pas de solution, personne ?

[Jedai]

Le ton de la question est clairement trollesque... Si telle n'est pas ton intention je te conseille de travailler ta méthode de communication, elle laisse à désirer. Voici néanmoins un programme qui dessine cette même image sous Haskell :

Code Haskell :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
module Main (main) where
 
import Codec.Picture (generateImage, PixelRGBA8(..))
import Graphics.Gloss.Juicy
import Graphics.Gloss
import Data.Bits ((.&.))
 
main = display (InWindow "Fractale" (1000, 1000) (10, 10))
         white
         (fromImageRGBA8 $ generateImage gen 3000 3000)
  where
    gen i j = if i .&. j-i == 0
              then PixelRGBA8 0 0 0 255
              else PixelRGBA8 255 255 255 255

En dehors du code d'importation des librairies nécessaires (installées avec "cabal install gloss-juicy" au préalable), le code lui-même n'est pas bien long, et le résultat est assez esthétique (gloss utilise OpenGl via Glut pour ouvrir une fenêtre dans laquelle tu peux naviguer et zoomer).

Pour ce qui est de la fractale elle-même, on peut obtenir un résultat bien plus intéressant avec des images vectorielles (parce qu'on peut zoomer/dézoomer sans soucis), voici un exemple très simple de la génération du triangle de Sierpiński avec la bibliothèque diagrams (hautement recommandée) à une profondeur réglable.
--
Jedaï

[vasilpapa]

Merci pour la réponse
Domage qu'il faille toujours installer les extensions de langage et nouvelles bibliothèques !
Salutations,
Vasilpapa

[Jedai]

Domage qu'il faille toujours installer les extensions de langage et nouvelles bibliothèques !

1. Je n'utilise pas d'"extension de langage" dans mon programme, Brent utilise "NoMonomorphismRestriction" qui est plus un choix esthétique qu'autre chose (il aurait pu s'en passer en mettant des types)
2. Les "extensions de langage" ne nécessitent pas d'installation, elles se choisissent juste au début d'un module avec un pragma.
3. Pour un langage généraliste comme Haskell, se plaindre d'avoir à installer des bibliothèques pour faire certaines tâches est assez étrange... Tu devrais plutôt te réjouir qu'il y ait des bibliothèques dans ce domaine.

Évidemment il y a des langages qui contiennent plus de choses dans leur bibliothèque standard qu'Haskell, mais il y a toujours des limitations, et souvent cela signifie que les programmeurs de ce langage se plient en quatre pour éviter de sortir de la bibliothèque standard alors qu'il existe des solutions nettement plus simples et lisibles s'ils s'autorisent à utiliser des bibliothèques tierces. D'autant qu'ici, l'installation de Gloss et JuicyPixel est particulièrement simple et ne nécessite qu'une seule ligne de commande.

Si tu voulais plutôt parler de cabal-install et des soucis de dépendances et conflits de versions en Haskell, il s'agit là d'un autre sujet, en lente amélioration mais qui peut être légitimement irritant au jour d'aujourd'hui.

--
Jedaï