82.113.121.96: Init

2010-02-14T23:05:41Z

Init

Neue Seite

'''PicoLisp''' ist ein [[Open Source Software|Open Source]] [[Lisp]]-Dialect. Es
läuft auf [[Linux]] und anderen [[POSIX]]-kompatiblen Systemen.

== Eigenschaften ==

Das grundlegende Prinzip von PicoLisp ist "Einfachheit". Es beschränkt sich auf
einen einzigen internen [[Datentyp]] (die "Zelle", engl. "cell"), ohne dabei
Abstriche an Flexibilität oder Ausdruckskraft zu machen. Auf der Ebene der
Sprache existieren nur drei Datentypen (Zahlen, Symbole und Listen), die
wiederum aus den internen Zellen aufgebaut sind.

Da die verkettete Liste der einzige nicht-atomare Datentyp ist, existieren viele
miteinander kooperierenden Funktionen, die sich ganz auf die Listenverarbeitung
konzentrieren können. Im Ergebnis sind PicoLisp-Programme oft prägnanter - und
dabei schneller - als jene in anderen interpretierten Sprachen (siehe
"Beispiele" unten).

[[Funktion (Programmierung)|Funktionen]] sind frei von
[[Compiler]]-Beschränkungen, und können somit Argumente jedes Typs und von
beliebiger Anzahl akzeptieren. Macros werden nur in seltenen Fällen benötigt.

Eine Besonderheit ist die eingebaute [[Datenbank]]. Persistente Symbole sind
first-class Objekte, sie werden beim Zugriff automatisch aus Datenbankdateien
geladen, und nach Veränderungen zurückgeschrieben. Anwendungen können auf
eine [[Vererbung (Programmierung)|Klassenhierarchie]] von
[[Entity-Relationship-Modell|Entity-Relationships]] zurückgreifen.

Ausserdem: [[Prolog (Programmiersprache)|Prolog]]-Interpreter für deklarative
Programmierung und Datenbankabfragen, verteilte Datenbanken, direktes Inlining
von [[C (Programmiersprache)|C]]-Funktionen und nativer Aufruf externer
C-Funktionen, Verwaltung von Child-Prozessen, [[Interprozesskommunikation]],
Browser GUI, [[Lokalisierung (Softwareentwicklung)|Lokalisierung]].

== Geschichte ==

PicoLisp wurde ursprünglich in den 1980er Jahren auf dem [[Apple Macintosh]] entwickelt, und wird seitdem in kommerzieller Anwendungsentwicklung eingesetzt. Es wurde bald nach [[MS-DOS]] und [[SCO Unix]] portiert, und seit 1993
hauptsächlich unter Linux benutzt. Die Datenbankfunktionalität wurde Mitte der 1990er Jahre hinzugefügt.

Während die ersten Versionen in einer Mischung aus C und [[Assembler (Informatik)|Assembler]] geschrieben waren, erfolgte 1999 eine Neu-Implementation ausschließlich in C. Diese Version wurde 2002 unter der [[GNU GPL]] Lizenz veröffentlicht.

2009 wurde die [[64-bit]]-Version veröffentlicht, eine nochmalige Neu-Implementation, dieses Mal in einer generischen Assembler-Sprache welche wiederum in PicoLisp implementiert ist.

== Beispiele ==

Das folgende Programm implementiert den "Fannkuch" Benchmark, wie er in der
[http://shootout.alioth.debian.org/u64q/benchmark.php?test=fannkuch Alioth
Benchmark Suite] beschrieben ist:

<pre>
#!bin/picolisp lib.l

(let (N (format (opt)) Lst (range N 1) L Lst M)
(recur (L) # Permute
(if (cdr L)
(do (length L)
(recurse (cdr L))
(rot L) )
(let I 0 # For each permutation
(and (ge0 (dec (30))) (prinl (reverse Lst)))
(for (P (copy Lst) (> (car P) 1) (flip P (car P)))
(inc 'I) )
(setq M (max I M)) ) ) )
(prinl "Pfannkuchen(" N ") = " M)
(bye) )
</pre>

Es zeigt wie expressiv und prägnant ein PicoLisp-Programm sein kann, im
Vergleich mit anderen Beiträgen auf der Alioth-Seite.

Im Gegensatz zu dem autonomen Skript oben, hier das gleiche Programm als
Funktionsdefinition:

<pre>
(de fannkuch (N)
(let (Lst (range 1 N) L Lst Max)
(recur (L) # Permute
(if (cdr L)
(do (length L)
(recurse (cdr L))
(rot L) )
(zero N) # For each permutation
(for (P (copy Lst) (> (car P) 1) (flip P (car P)))
(inc 'N) )
(setq Max (max N Max)) ) )
Max ) )
</pre>

Die Ausführungsgeschwindigkeit ist natürlich geringer als die der meisten
compilierten Sprachen. Wir konnten 18 Minutes auf einem 1.0 GHz Athlon messen;
es sollte deutlich weniger auf der Intel Q6600 Maschine von Alioth sein. Da es
sich dort um einen Quad-Core-Rechner handelt, kann es leicht um einen Faktor von
vier beschleunigt werden, wenn man die parallelisierte Version verwendet:

<pre>
(de fannkuch (N)
(let (Res (need N) Lst (range 1 N) L Lst Max)
(for (R Res R (cdr R))
(later R
(let L (cdr Lst)
(recur (L) # Permute
(if (cdr L)
(do (length L)
(recurse (cdr L))
(rot L) )
(zero N) # For each permutation
(for (P (copy Lst) (> (car P) 1) (flip P (car P)))
(inc 'N) )
(setq Max (max N Max)) ) )
Max ) )
(rot Lst) )
(wait NIL (full Res))
(apply max Res) ) )
</pre>

== Weblinks ==

*[http://www.picolisp.org PicoLisp Home]
*[http://software-lab.de/picoLisp.tgz Latest Version]
*[http://software-lab.de/down.html Download page]
*[http://software-lab.de/ref.html Reference manual]
*[irc://irc.freenode.net/picolisp #picolisp IRC channel]
*[http://www.mail-archive.com/picolisp@software-lab.de Mailing list archive]

== Quellen ==
<references />

*[http://software-lab.de/radical.pdf Paper] A Radical Approach to Application Development (PDF)

[[Kategorie:Lisp]]

== Andere Wikipedia Sprachen ==
* [http://en.wikipedia.org/wiki/Picolisp WPSprache{en}: Picolisp ]
* [http://eo.wikipedia.org/wiki/PicoLisp WPSprache{eo}: PicoLisp ]

== Init-Quelle ==
Entnommen aus der:
* [http://de.wikipedia.org/wiki/PicoLisp Wikipedia]
* [http://de.wikipedia.org/wiki/Wikipedia:L%C3%B6schkandidaten/1._Januar_2010#PicoLisp_.28gel.C3.B6scht.29 Löschdiskussion bei Wikipedia]

Erster Autor: [http://de.wikipedia.org/wiki/Benutzer:AlexanderBurger AlexanderBurger ] angelegt am 01.01.2010 um 18:15,
<br/> Alle Autoren: [http://de.wikipedia.org/wiki/Benutzer:Freedom Wizard Freedom Wizard], [http://de.wikipedia.org/wiki/Benutzer:Kmhkmh Kmhkmh], [http://de.wikipedia.org/wiki/Benutzer:AlexanderBurger AlexanderBurger ], [http://de.wikipedia.org/wiki/Benutzer:TheK TheK], [http://de.wikipedia.org/wiki/Benutzer:Weissbier Weissbier], [http://de.wikipedia.org/wiki/Benutzer:Niemot Niemot]

[[Kategorie:WikiPedia Deleted]]

PicoLisp - Versionsgeschichte

82.113.121.96: Init