Scheme y Haskell, ligera comparativa

 Scheme es un lenguaje de programación interesante, pero hay que reconocer

que su sintaxis, llena de paréntesis, no parece actualizada. De todas formas,

un rápido vistazo a un par de programas clásicos en este programa dará 

idea de cómo programar aquí, en Scheme.

(define (fact n)

    (if (eq? n 0) 1

        (* n (fact (- n 1)))))


(define (fib n) 

  (if (or (eq? n 0) (eq? n 1)) 1 

      (+ (fib (- n 1)) (fib (- n 2)))))

Como vemos, los paréntesis abundan. Podemos cargar este programa 

en chez scheme, por ejemplo, y obtener:

Chez Scheme Version 9.5
Copyright 1984-2017 Cisco Systems, Inc.

> (load 'ejemplo.scm)
 

Exception in load: ejemplo.scm is not a string
 

Type (debug) to enter the debugger.
 

> (load "ejemplo.scm")
 

> (fact 10)
 

3628800
 

> (fib 10)
 

89
 

> 

Así que los programas de fact y fib en Scheme tienen muchos paréntesis, 

y también tienen muchos operadores prefijos. Lo interesante es que, habituándose

un poco, son fácilmente traducibles a Haskell, pero con la salvedad de que los 

mecanismos de ejecución son diferentes: En Haskell la evaluación es de afuera 

hacia adentro (evaluación perezosa) y en Scheme de adentro hacia 

afuera (evaluación voraz o rápida). Platicaremos más de estos detalles posteriormente.


Comentarios

Publicar un comentario

Entradas populares de este blog

La entrada y salida en Haskell

Para cualquier lenguaje de programación existente, la tarea de entrada y salida es algo bastante común y convencional. No tanto así para Haskell. Aquí hay varios ejemplos para, elementalmente, tratar el tema de  entrada y salida desde el punto de vista haskeliano práctico. Dado que la teoría detrás, llamada teoría de mónadas, puede parecer particularmente intimidante, la dejamos para después. Mientras, vale trabajar directamente inspirándose en los ejemplos comentados en éste capítulo:   http://learnyouahaskell.com/input-and-output
Leer más

OpenGL en Haskell (material opcional)

Imagen
 Es posible utilizar OpenGL en Haskell, pero les mentiría si les digo que es  un resultado garantizado... Depende de varias cosas. Y solo puedo dar notas para Ubuntu 18 al respecto.  Primero, hacer esto: sudo apt install freeglut3-dev Luego, hacer esto: cabal update  (cabal es un instalador de paquetes para ghc) Luego, hacer lo siguiente: cabal install GLUT (Se consume algo de espacio, para ser al menos medio giga... :( ) De salir todo bien, ahora inspeccionar el siguiente sitio:   https://archives.haskell.org/code.haskell.org/GLUT/examples/RedBook/   ...... Wuiiiii Tomar de aquí algún archivo y compilarlo. Por ejemplo, Robot.hs ghc -o robot Robot.hs (imagen de una versión mía modificada de Robot.hs) El código de Robot.hs lo coloco aquí, redundantemente. {-    Robot.hs (adapted from robot.c which is (c) Silicon Graphics, Inc.)    Copyright (c) Sven Panne 2002-2005 <sven.panne@aedion.de>    This file is part of HOpenGL ...
Leer más

¡Pi en Haskell!

El número pi siempre está presente en Matemáticas y Computación.  Aquí está el cálculo de algunos de sus dígitos utilizando la fórmula de Leibniz pi/4=1-1/3+1/5-1/7+1/9.... Ver https://en.wikibooks.org/wiki/Calculus/Leibniz%27_formula_for_pi  pii n =   let     ls=1:(map (+2) ls)     inter = 1:(-1):inter   in     4*(sum (zipWith (*) (take n inter) (map (\x -> 1/x) (take n ls)))) La fórmula de Leibniz es mona, pero por aquí encontré que con éste algoritmo  https://en.wikipedia.org/wiki/Chudnovsky_algorithm se pueden hallar trillones de dígitos de pi. Ésta es la versión de este algoritmo en Python....   import decimal def binary_split ( a , b ): if b == a + 1 : Pab = - ( 6 * a - 5 ) * ( 2 * a - 1 ) * ( 6 * a - 1 ) Qab = 10939058860032000 * a ** 3 Rab = Pab * ( 545140134 * a + 13591409 ) else : m = ( a + b ) // 2 Pam , Qam ,...
Leer más