{"id":638,"date":"2010-09-16T07:11:54","date_gmt":"2010-09-16T07:11:54","guid":{"rendered":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/comparacion-de-3-implementaciones-de-common-lisp-clisp-gcl-y-sbcl-mediante-la-funcion-de-takeuchi\/"},"modified":"2014-04-09T19:48:37","modified_gmt":"2014-04-09T17:48:37","slug":"comparacion-de-3-implementaciones-de-common-lisp-clisp-gcl-y-sbcl-mediante-la-funcion-de-takeuchi","status":"publish","type":"post","link":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/comparacion-de-3-implementaciones-de-common-lisp-clisp-gcl-y-sbcl-mediante-la-funcion-de-takeuchi\/","title":{"rendered":"Comparaci\u00f3n de 3 implementaciones de Common Lisp (Clisp, GCL y SBCL) mediante la funci\u00f3n de Takeuchi"},"content":{"rendered":"

En art\u00edculos anteriores comentamos la funci\u00f3n de Takeuchi como prueba de rendimiento<\/a> y la usamos para la comparaci\u00f3n del rendimiento de Haskell, Maxima y Common Lisp<\/a>.<\/p>\n

\nEn este art\u00edculo voy a usar una variaci\u00f3n de la prueba anterior para comparar tres implementaciones de Common Lisp: Clisp<\/a>, GCL (GNU Common Lisp)<\/a> y SBCL (Steel Bank Common Lisp)<\/a>.<\/p>\n

\nLa funci\u00f3n de Takeuchi es
\n\"tak(x,y,z)<\/p>\n

\nLa prueba consistir\u00e1 en comparar los tiempos empleados en calcular tak(n,0,n+1) para n entre 10 y 15.
\n<\/p>\n

\nEl fichero con las definiciones Lisp utilizado es<\/p>\n

\r\n#+excl\r\n(eval-when (compile) (setq comp::register-use-threshold 6))\r\n\r\n(defun tak (x y z)\r\n  (declare (fixnum x y z))\r\n  (if (<= x y)\r\n      y\r\n      (tak (tak (- x 1) y z)\r\n           (tak (- y 1) z x)\r\n           (tak (- z 1) x y))))\r\n\r\n(defun takeuchi (n) \r\n  (tak n 0 (1+ n)))\r\n<\/pre>\n
\nTodo los c\u00e1lculos se han realizado en un ordenador con Ubuntu versi\u00f3n 10.04, n\u00facleo linux 2.6.32-24-generic, 2,0 GiB de memoria y un procesador Intel(R) Atom(TM) CPU N280 @ 1.66GHz.<\/p>\n
\nLos resultados se resumen en la siguiente tabla donde la primera columna se indica el valor de n y en las restantes los segundos empleados en el c\u00e1lculo de takeuchi(n).
\n\"\begin{array}{|l|r|r|r|r|}<\/p>\n
\nEn la \u00faltima columna he escrito los tiempos empleados por GHC (The Glasgow Haskell Compiler)<\/a> en calcular (takeuchi n) usando la siguiente definici\u00f3n<\/p>\n
\r\ntak :: Int -> Int -> Int -> Int\r\ntak x y z\r\n    | x <= y    = y\r\n    | otherwise = tak (tak (x-1) y z)\r\n                      (tak (y-1) z x)\r\n                      (tak (z-1) x y)\r\n\r\ntakeuchi :: Int -> Int\r\ntakeuchi n = tak n 0 (n+1)\r\n<\/pre>\n
\nDel experimento se concluye que SBCL se comporta mucho mejor que Clisp y GCL, aunque no tanto como GHC.<\/p>\n","protected":false},"excerpt":{"rendered":"
En art\u00edculos anteriores comentamos la funci\u00f3n de Takeuchi como prueba de rendimiento y la usamos para la comparaci\u00f3n del rendimiento de Haskell, Maxima y Common Lisp. En este art\u00edculo voy a usar una variaci\u00f3n de la prueba anterior para comparar tres implementaciones de Common Lisp: Clisp, GCL (GNU Common Lisp) y SBCL (Steel Bank Common…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_kad_post_transparent":"","_kad_post_title":"","_kad_post_layout":"","_kad_post_sidebar_id":"","_kad_post_content_style":"","_kad_post_vertical_padding":"","_kad_post_feature":"","_kad_post_feature_position":"","_kad_post_header":false,"_kad_post_footer":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"footnotes":"","_jetpack_memberships_contains_paid_content":false},"categories":[5,92,95],"tags":[270,283,284,94],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_likes_enabled":false,"_links":{"self":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/posts\/638"}],"collection":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/comments?post=638"}],"version-history":[{"count":11,"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/posts\/638\/revisions"}],"predecessor-version":[{"id":4257,"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/posts\/638\/revisions\/4257"}],"wp:attachment":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/media?parent=638"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/categories?post=638"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/tags?post=638"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}