3. Funktionale Programmiersprachen Haskell und F# - PDF\n3. Funktionale Programmiersprachen Haskell und F#\nDownload "3. Funktionale Programmiersprachen Haskell und F#"\n1 3. Funktionale Programmiersprachen Haskell und F# Einleitung Was haben die zuletzt behandelten vier Programmiersprachen gemeinsam? Wahrscheinlich fällt einem zu dieser Frage zunächst nicht viel mehr ein, dass es halt Programmiersprachen sind. Zu verschieden erscheinen sie einem, als dass man eine weitergehende Gemeinsamkeit entdecken könnte. Und dennoch gibt es sie: Es sind alles imperative Programmiersprachen! Ein Befehl nach dem anderen wird in festgelegter Reihenfolge abgearbeitet. Gewiss, es gibt die Schleifen und bei schlechter Programmierung auch die Sprungbefehle. Das ändert aber nichts daran, dass die Reihenfolge festgelegt ist. Zum besseren Verständnis sollten Sie sich den Abschnitt Klassifikation nach den Programmierparadigma in Kapitel 2.0 (S.75) nochmals durchlesen. Das imperative Paradigma passt sehr genau zur klassischen Von-Neumann- Architektur für Rechner. Es ist relativ leicht zu verstehen und wird daher besonders von Programmier-Novizen bevorzugt. Der Befehl (aus Delphi) x:= x + 5 ist mathematisch gesehen reiner Unfug! Subtrahieren Sie auf beiden Seiten x, dann bekommt man die Aussage: 0 = 5. So kann es also nicht gemeint sein. In der Tat soll die obige Schreibweise etwas ganz anderes heißen: Der Speicherinhalt von x wird mit 5 addiert und wieder auf den Speicher von x geschrieben. Einen solchen Befehl werden Sie in Haskell oder F# vergeblich suchen. Und das liegt daran, dass Haskell und F# funktionale Programmiersprachen sind. Und funktionale Programmiersprachen ruhen auf einem völlig anderen Programmierparadigma: Programme bestehen hier ausschließlich aus einer Vielzahl von Funktionen, daher der Name. Das Hauptprogramm ist eine Funktion, welche die Eingabedaten als Argument erhält und die Ausgabedaten als seinen Wert zurückliefert. Diese Hauptfunktion verwendet in ihrer Definition üblicherweise weitere Funktionen, die wiederum ihrerseits weitere Funktionen verwenden, und das geht so weiter, bis irgendwann, am Boden der Aufrufhierarchie ankommend, nur noch die Grundfunktionen der Programmiersprache verwendet werden, wie etwa die Addition. (Wikipedia) Alles klar?!? Vermutlich nicht! Man kann Obiges auch etwas ausführlicher darstellen. Das soll in den nächsten Abschnitten versucht werden. 1\n2 Ein Grund für Verwirrung ist sicher der Umstand, dass der Begriff Funktion auch in imperativen Programmiersprachen verwendet wird. Nur hat er da eine ganz andere Bedeutung, wie in der Mathematik: Funktionen sind in Delphi, Java etc so etwas wie Unterprogramme oder Prozeduren. In Mathematik ist eine Funktion eine eindeutige Zuordnung von einer Menge in eine andere Menge. Beispielsweise ordnet die Funktion f: x x 2 jedem Element x aus der Definitionsmenge (zum Beispiel den rationalen Zahlen) das Quadrat von x zu. Natürlich ist dies eine Funktion, denn die Zuordnung ist eindeutig ( 5 wird eindeutig 25 zugeordnet). Bei der rein funktionalen Programmierung ist dieser mathematische Funktionsbegriff gemeint! Der Vorteil: Man kann jetzt die sehr umfangreich behandelten Methoden der Mathematik nutzen, da man ja auch die gleiche Funktionsdefinition benutzt. Selbst manche Beweise der Mathematik können der funktionalen Programmiersprache dienlich sein. Wer hätte das gedacht? Programme bestehen dort, vereinfacht ausgedrückt, aus Funktionen, die weitere Funktionen aufrufen. Das bedeutet vor allem, dass Funktionen selbst als Übergabewert (Parameter) dienen können. Sie verhalten sich daher mehr oder weniger wie Datentypen aus der imperativen Programmiersprache. Einige Konsequenzen: Es gibt keine Schleifen! Sie werden durch Rekursionen ersetzt! Es gibt keine Variablen! Sie werden durch Parameter ersetzt! Funktionen selbst sind Werte! Das Resultat einer Funktion hängt nur vom Parameterwert ab! Die Rekursion sollten Sie aus der Mathematik kennen. Wenn Ihnen das Thema nicht mehr präsent sein sollte, hier ein kleines Beispiel (natürlich aus der Informatik): Wie würde man etwa in Delphi einen Programmtext zur Berechnung der Fakultät aufschreiben? Eine Möglichkeit: function TFAnwendung.Fakultaet(wZahl:word):longint; var liprodukt: longint; i : word; begin liprodukt:=1; for i:=1 to wzahl do liprodukt:=liprodukt*i; Fakultaet:=liProdukt; end; Kleine Frage am Rande: Welche Bedeutung hat hier der Begriff function? 2\n3 Löst man das Problem mit Hilfe einer Rekursion, so sieht der Quelltext (in Haskell) so aus: fak 0 = 1 fak n = n * fak (n-1) Ist doch beeindruckend, der Unterschied! Und wenn man dann noch bedenkt, dass mit dem Delphiprogramm nur maximal 16! berechnet werden kann, während bei Haskell keine theoretische Grenze für n existiert! Man kann dort problemlos 38456! ausrechnen. Versuchen Sie das mal in C#, Delphi, Java oder PHP zu realisieren!! (Wir werden auf das Beispiel zurückkommen): Aufgabe 1 Realisieren Sie das oben angedeutete Fakultiäts-Programm in einer beliebigen imperativen Programmiersprache. (Delphi ist hier bequem, weil der Quellcode schon fast vollständig ist! Programmordner: FakultaetImperativ ) Man darf jetzt aber nicht glauben, dass imperativen Programmiersprachen die Rekursion fremd ist. Um das nicht zu vergessen, lösen Sie die nächste Aufgabe! Aufgabe 2 Versuchen Sie dies mal das Fakultätsproblem in der von Ihnen oben verwendeten Programmiersprache rekursiv zu lösen! (Programmordner: FakultaetRekursiv) Versuchen Sie es zunächst ohne Hilfe. Wenn Sie nicht weiterkommen, dann hilft ein Blick auf die folgenden Zeilen: function Fakultaet(n: longint):longint; begin if n=0 then Fakultaet:= 1 else Fakultaet:= Fakultaet(n-1)*n; end; Schreiben Sie von Hand die Schritte auf, die der Rechner zum Beispiel bei n = 4 zu durchlaufen hat! Das ist sehr lehrreich und nebenbei die beste Methode, Rekursionen zu verstehen! Übrigens: Funktionale Programmiersprachen, wie LISP, Miranda und Haskell, gehören zur Gruppe der deklarativen Programmiersprachen. LISP gibt es schon seit Ende der 50-er Jahre. Die Sprache wurde besonders in der Forschung der künstlichen Intelligenz verwendet. Heute verwendet sie kaum mehr jemand mehr. 3\n4 Haskell Grundlagen Den Name verdankt die Sprache dem Mathematiker Haskell Brooks Curry. Er forschte Anfang der 40-er Jahre des letzten Jahrhunderts auf dem Gebiet der kombinatorischen Logik. Diese Theorie bildet die Grundlage und Voraussetzung für funktionale Programmiersprachen. Curry muss schon sehr bedeutendes geleistet haben, wenn man eine Programmiersprache mit seinem Vornamen bezeichnet! Wenn Sie wissen wollen, womit sich Curry sonst noch beschäftigt hat, so lesen Sie zum Beispiel den gut verständlichen Artikel über Currys Paradox bei Wikipedia: Was Wikipedia sonst noch zur Geschiche von Haskell weiß, lesen Sie hier: Gegen Ende der 1980er Jahre gab es bereits einige funktionale Programmiersprachen, alle mit ihren Vor- und Nachteilen. Um der Wissenschaft eine einheitliche Forschungs- und Entwicklungsbasis bereitzustellen, sollte eine standardisierte und moderne Sprache die funktionale Programmierung vereinheitlichen. Zunächst wollte man dazu Miranda als Ausgangspunkt benutzen; doch deren Entwickler waren daran nicht interessiert. So wurde 1990 Haskell 1.0 veröffentlicht. Die aktuelle Version der Programmiersprache ist eine überarbeitete Variante des Haskell-98-Standards von Haskell ist die funktionale Sprache, an der zur Zeit am meisten geforscht wird. Demzufolge sind die Sprachderivate zahlreich; dazu zählen Parallel Haskell, Distributed Haskell und sogar objektorientierte Varianten (Haskell++, O'Haskell, Mondrian). Des Weiteren diente Haskell beim Entwurf neuer Programmiersprachen als Vorlage. So wurde z.b. im Falle von Python die Lambda- Notation sowie Listenverarbeitungssyntax übernommen. ( ) Wenn Sie jetzt noch wüssten, was die Lambda-Notation ist... In Haskell sieht sie so aus: plus a b = a + b Das bedeutet: plus ist eine Funktion (allgemein Lambda genannt), die auf a und b angewandt wird. Das Ergebnis der Funktion ist a + b. So einfach ist das!! Frage: Woher bekommt man eigentlich die Programmiersprache Haskell? Antwort: Wir verwenden hier den Haskell-Interpreter Hugs: 4\n5 Das Programm ist Freeware und kann auch vom Tauschverzeichnis auf den USB- Stick geladen werden. Klicken Sie im NAL unter Informatik das Ikon für Haskell doppelt, so sehen Sie dieses Fenster: Hier wurde allerdings bereits, dem Vorschlag am Prompt entsprochen, :? einzugeben. Daraufhin bekommt man einige Kommandos gezeigt. Ein wenig enttäuscht sind Sie schon, stimmts?! Soll das magere Editierfeld alles sein? Warten Sie es ab! Öffnen Sie mit file / Modulmanager das folgende Fenster: 5\n6 Offensichtlich gibt es hier bereits geladene Module, die bereits jetzt eine Fülle von Funktionen besitzten. Um dies genauer zu untersuchen, öffnen Sie einen der Module mit dem Button Edit auf der linken Seite. Die Einträge sollte man aber keinesfalls verändern... Wir wollen jetzt in einem ersten Schritt Haskell unsere eigene Addition von oben beibringen (plus a b = a+b) Öffnen Sie mit dem einfachen Windows-Editor ein neues Dokument und schreiben Sie lediglich obige Zeile. Danach speichern Sie das Dokument unter addition.hs ab. Mit dem obigen Modulmanger können Sie danach Ihr erstes Modul laden (add) und danach im Hauptfenster auch benutzen (siehe Bild links). Interessant wäre jetzt zu wissen, was Haskell mit plus a b anfängt. Problieren Sie weitere Möglichkeiten aus! Die erste Programmzeile, die wir geschrieben haben (plus a b = a+b) ist für den Interpreter eine echte Herausforderung. Es wird nämlich nicht festgelegt, welchen Typs die Parameter a und b sein sollen. Und wenn man ein Charakteristikum von Haskell nennen müsste, dann ist es mit Sicherheit die gnadenlose Typenkontrolle! Diesbezüglich ist Haskell das genaue Gegenteil von PHP! Machen wir es also richtig: --plus eigen (Keine Großbuchstaben!!) plus :: Double->Double->Double plus a b = a + b Man kann hier auch erkennen, wie ein Kommentar geschrieben werden kann. 6\n7 Die zweite Zeile entspricht der Schreibweise des Lambda-Kalküls. Jetzt allerdings muss man bei der Eingabe des Parameters auch korrekt vorgehen. Dabei geht die Zeile plus noch in Ordnung. Damit aber auch alles klar ist bekommt das Ergebnis einen Dezimalpunkt und eine Null spendiert! Die Funktion plus_i unterscheidet sich von der Funktion plus nur dadurch, dass statt Double Integer verwendet wurde. Daher muss die nebenstehende zweite Rechnung zu einer Fehlermeldung führen. Auch wenn formal 44.0 mit etwas gutem Willen als Integer durchgehen kann. Integer (nicht zu verwechseln mit Int) scheint ein ganz besonderer Datentyp zu sein. Sehen Sie sich die unten abgebildete Ganzzahl-Addition etwas genauer an: Der zweite Summand hat 47 Dezimalstellen. Versuchen Sie es ruhig mal mit 200 oder 300 Stellen... Zeit für einige wichtige Informationen In Haskell muss man zwischen Groß- und Kleinschreibung unterscheiden! Also plus ist nicht gleich Plus!! Wenn man nicht weiß, welchen Typ eine Funktion hat, dann kann man dies mit :t ganz einfach herausbekommen. Zum Beispiel: Das geht natürlich auch mit in Hugs vordefinierten Funktionen: Im Gegensatz zu den ersten Beispielen ist hier kein Parameter-Typ vorgeschrieben. const ist also offensichtlich eine Funktion, die auf zwei beliebige Paramter wirkt und ein Ergebnis vom ersten Typ liefert! Probieren Sie das gleich mal aus. Z.B.: Alles klar? Wenn man eine Funktion definieren will, muss man nicht immer über den Umweg des Skriptes (mit Endung.hs) gehen. Man kann auch eine nur für eine 7\n8 Zeile gültige Funktion schreiben: Der Backslash \_ steht für Lambda! Bevor Sie nun selbst eigene Kurzzeitfunktionen erstellen, sehen Sie sich diese Zeilen links noch an: Einmal geht s einmal nicht! Weshalb? Will man die Kurzzeitfunktion weiterverwenden, so schreibt man sie wieder in ein Skript (Endung.hs), das man mit dem Modulmanager einliest. Aber Achtung: Das hätten Sie nicht vermutet, stimmt s!? Der Interpreter geht davon aus - wird ihm nichts anderes mitgeteilt - dass es sich bei den Parametern x und y um Integer handelt. Sehr streng, dieser Haskell-Interpreter!! Aufgabe 3 Schreiben Sie als Festfunktion : Eine eigene Quadratfunktion quadrat Die Identitätsfunktion identitaet für beliebige Parameter (Das ist die Funktion, die jedem Wert den selben Wert zuordnet) Eine Funktion nimm2von2, die von zwei eingegebenen Parametern den zweiten Wert zuordnet, - und zwar für beliebige Parameter. Nun muss man ja nicht unbedingt die Funktionen, die in Haskell schon vorhanden sind, erneut programmieren. Daher hier eine Zusammenstellung arithmetischer 8\n9 und logischer Operatoren und zudem einige höchst praktischer arithmetischen Funktionen, die durch das Modul Prelude automatisch geladen werden: + Addition = 5 - Subtraktion 2-3 = -1 * Multiplikation 2 * 3 = 6 / Division 2 / 3 = ^ Potenz 2^3 = 8 div ; mod (ganzzahlige Division bzw. Restbildung): div :: Integral a => a -> a -> a mod :: Integral a => a -> a -> a z.b.: (Achtung: div und mod stehen zwischen zwei Accents graves!) gcd ; lmc (größter gem.teiler bzw. kleinstes gem. Vielfaches): gcd :: Integral a => a -> a -> a lcm :: Integral a => a -> a -> a z.b.: even ; odd (gerade bzw. ungerade Zahl): even :: Integral a => a -> Bool odd :: Integral a => a -> Bool z.b.: (Erläuterung: DieTypklasse Integral besteht aus den Typen Int und Integer.) && logisches UND 2<3 && 3<4 = True logisches ODER True False = True not logische Verneinung not (pi<3) = True Wenn Sie die obigen Definitionen aufmerksam gelesen haben, ist Ihnen sicher die Schreibweise even :: Integral a => a -> Bool aufgefallen. Was bedeutet Integral a =>? Haskell unterscheidet drei verschiedene Arten von Funktionen: 9\n10 Monomorphe Funktionen, die nur genau einen Eingabetyp akzeptieren: plus :: Double->Double->Double plus a b = a + b Polymorphe Funkionen, die beliebige Eingabetypen akzeptieren: nimm1von2 :: a -> b -> a nimm1von2 a b = a Überladene Funktionen, die mehrere Eingabetypen akzeptieren: quadrat :: Num a => a -> a quadrat a = a*a Die Funktion quadrat lässt sich natürlich nur dann überladen, wenn die Operation auf der erlaubten Klasse, hier Num, definiert ist. Wenn man versucht, die Quadratfunktion polymorph zu definieren, wird man unweigerlich eine Fehlermeldung bekommen: quadratf :: a -> a quadratf a = a*a ERROR.Inferred type is not general enough Rekursion Haskell ist eine funktionale Programmiersprache. Daher gibt es keine Schleifen, sondern Rekursionen, wie wir weiter oben festgestellt haben. In Aufgabe 2 wurde ohne mit Delphi dargestellt, wie man beispielsweise die Berechnung von n! rekursiv bewältigen kann. Auf Seite 162 steht der Programmcode für Haskell. Mit einer Kommentarzeile und und der Festlegung des Definitionsbereichs sieht es nun so aus: -- Definition Fakultät fak :: Integer -> Integer fak 0 = 1 fak n = n * fak (n-1) Einfacher geht nicht! Testen Sie die Programmzeilen! Was ist 8872!? Und jetzt probieren Sie das mal mit Ihrem GTR... In Klasse 12 werden Sie von der Fibonacci-Folge gehört haben oder hören. Und das steckt dahinter: Fibonacci illustrierte diese Folge durch die einfache mathematischen Modellierung des Wachstums einer Kaninchenpopulation nach folgender Vorschrift: 10\n11 1. Zu Beginn gibt es ein Paar geschlechtsreifer Kaninchen. 2. Jedes neugeborene Paar wird im zweiten Lebensmonat geschlechtsreif. 3. Jedes geschlechtsreife Paar wirft pro Monat ein weiteres Paar. 4. Die Tiere befinden sich in einem abgeschlossenen Raum ( in quodam loco, qui erat undique pariete circundatus ), so dass kein Tier die Population verlassen und keines von außen hinzukommen kann. Das erste Paar erzeugt seinen Nachwuchs bereits im ersten Monat. Jeden Folgemonat kommt dann zu der Anzahl der Paare, die im letzten Monat gelebt haben, eine Anzahl von neugeborenen Paaren hinzu, die gleich der Anzahl der Paare ist, die bereits im vorletzten Monat gelebt haben, da genau diese geschlechtsreif sind und sich nun vermehren. Fibonacci führte den Sachverhalt für die zwölf Monate eines Jahres vor (1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377) und weist auf die Bildung der Reihe durch Addition mit dem jeweils vorhergehenden Reihenglied hin (1+2=3, 2+3=5, 3+5=8, etc.). Er merkte außerdem an, dass die Folge sich unter der Annahme unsterblicher Kaninchen unendlich fortsetzen lässt: et sic posses facere per ordinem de infinitis numeris mensibus. Weitere Beachtung hatte er dem Prinzip in seinen erhaltenen Werken nicht geschenkt. (Wikipedia ) Zwei ganz andere Zugänge zu der Fibonacci-Folge finden Sie hier: (Fibonacci) Mathematisch ausgedrückt ist der Sachverhalt klarer: f(1) = 1; -- im ersten und zweiten Monat gibt es ein Paar f(2) = 1 f(n) = f(n - 1) + f(n - 2) für n > 2 ; Das obige Verfahren, bei dem vom Interpreter zur Laufzeit zunächst einige Sonderfälle und dann ein allgemeiner Fall geprüft werden, nennt man Patternmatching. Das Ganze erinnert Sie vielleicht entfernt an die if-then-else- Abfragen. Und so falsch liegen Sie da auch nicht. Wie dort kann man hier sehr leicht in eine Endlosschleife einsteiten! Aufgabe 4 Schreiben Sie ein Haskell-Programm, das fib(n), also die Anzahl der Paare nach n Monaten berechnet. Wieviele Paare gibt es nach 23 Monaten? (Keine viel höheren Werte verwenden, wenn Sie nicht Stunden oder Tage warten wollen...) 11\n12 Sehr lange braucht das Programm für n = 34. fib(34) = Eine guter Benchmark für Ihren Prozessor!! Das geht entschieden zu langsam! Nicht weil Haskell nichts taugt, sondern weil der Programmcode zwar einfach zu schreiben, aber höchst anspruchsvoll für Prozessor und RAM ist. Das geht viel, viel besser und schneller, wenn man erst einmal Listen in Haskell behandelt hat. Guards (Wächter) Auch wenn mit Pattern-matching unterschiedliche Reaktionen des Programms erreicht werden können, so kann es die if-then-else-konstruktion nicht ersetzten. Diese gibt es zwar auch in Haskell (und wird, wie es sich gehört als Funktion aufgefasst), sind allerdings in funktionalen Programmiersprachen nur zweite Wahl. Denn es gibt etwas viel besseres: die Guards. Diese Wächter werden durch senkrechte Striche eingeleitet und stehen alle untereinander. Ein End-Wächter wird durch otherwise aufgerufen. Ein Beispiel: funktionspezial n n == 1 = 5 -- Wächter 1 mod n 2 == 0 = 7 -- Wächter 2 otherwise = Wächter 3 Erklärung: Wenn n =1, dann wird 5 ausgebeben; ist n durch 2 teilbar, so wird 7 ausgegeben. In allen anderen Fällen bekommt man den Wert 10. Hier die wichtigsten Vergleichsoperatoren: == gleich "Eis" == "eis" = False /= ungleich 2 /= 3 = True < kleiner "Haus" < "haus" = True <= kleiner oder gleich 4 <= sqrt 16 = True > größer 'a' > 'A' = True >= größer oder gleich 3^2 >= 0 = True Aufgabe 5 Wenn Sie nicht mehr wissen, wie die Schaltjahre berechnet werden, so sehen lesen Sie sich die Erklärung in Wikipedia durch: Ist die Jahreszahl durch 4 teilbar, aber nicht durch 100, dann ist es ein Schaltjahr mit 366 Tagen. Beispiele: 1980, 1972,\n13 Ist die Jahreszahl durch 100 teilbar, aber nicht durch 400, dann ist das Jahr ein gewöhnliches Gemeinjahr und hat nur 365 Tage, z. B. in den Jahren 1700, 1800 und 1900 oder ferner Ist die Jahreszahl durch 400 teilbar, ist das Jahr ein Schaltjahr. Die Jahre 1600 und 2000 waren in Übereinstimmung mit der Julianischen Schaltregel Schaltjahre zu 366 Tagen. Versuchen Sie nun mit dieser Definition den Programmcode zur Entscheidung, ob ein Jahr y ein Schaltjahr ist oder nicht, zu verstehen: -- Bestimmung Schaltjahr schaltjahr :: Int -> Bool -- (1) schaltjahr y -- (2) mod y 100 == 0 = (mod y 400 == 0) -- (3) otherwise = (mod y 4 == 0) -- (4) Listen Wen wundert es, wenn funktionale Programmiersprachen ihren Hang zur Rekursion auch auf die Datenstrukturen selbst beziehen wollen? Das beste Beispiel für solche rekursiv definierten Datenstrukturen sind die Listen. In Haskell sieht das so aus:  -- leere Liste [element] -- Liste mit einem Element (x:xs) -- nicht leere Liste, x ist erstes Element, xs ist die Restliste In Listen sind alle nur denbaren Datentypen als Elemente zugelassen, aber alle Elemente müssen den selben Typ haben. Die meisten Listenfunktionen sind polymorph, d.h., sie funktionieren mit allen Listen und sind nicht an einen Typ gebunden. Hier einige Beispiele: [4,6,7,9] :: [Int] ['H','a','l','l','o'] = "Hallo" ["Lehrer","sind","auch", Menschen! ] :: [[Char]] (oder :: [String] ) (1>5):[True, False] = [False, True, False] 5^2 : 6^2 : 3^2 : 1^2 : [ ] = [25, 36, 9, 1] Es gibt auch einige Vereinbarungen bezüglich der Vereinfachung der Schreibweise: [ ] = [20, 21, 22, 23, 24, 25] [ ] = [20.5, 21.5, 22.5, 23.5, 24.5, 25.5, 26.5] [2, ] = [2,4,6,8,10,12] [5, 4.. 1] = [5, 4, 3, 2, 1] 13\n14 [5.1, ] = [5.1,5.2,5.3,5.4,5.5,5.6,5.7,5.8,5.9,6.0] [5.1+i*0.1 i<-[0..9]] = [5.1,5.2,5.3,5.4,5.5,5.6,5.7,5.8,5.9,6.0] (die obige Schreibweise erinnert zwar sehr an eine Schleife, ist aber, wie jede Liste in Haskell, durch eine Rekursion entstanden. Siehe Erklärung weiter unten) [1.. ] = [1, 2, 3, 4, 5, 6, ] --unendliche Liste Wie nicht anders zu erwarten, werden Listen rekursiv aus aus Elementen eines Haskell-Typs a aufgebaut. Dazu braucht man zwei Festlegungen: Die leere Liste  ist eine Liste vom Typ [a] (Induktionsanfang) Ist x ein Element vom Typ a und xs eine Liste vom Typ [a], dann ist x:xs eine Liste vom Typ [a] Durch diese Festlegung (Definition) wird offensichtlich, dass Listen rekursiv konstruiert werden. Das ist alles ziemlich abstrakt. Daher ein Beispiel: 1, 3 und 5 sind Int-Variablen. Weshalb ist dann nach obiger Definition [1,3,5] eine Liste (von Ints)? [1,3,5] = 1 : [3,5] Somit ist [1,3,5] eine Liste, wenn [3,5] eine Liste ist [3,5] = 3 :  [3,5] ist eine Liste, wenn  eine Liste ist  = 5 :   ist eine Liste, weil  eine Liste ist. [5.1+i*0.1 i<-[0..9]] = *0.1 : [5.1+1*0.01 : [.]] Und nun liest man die drei Zeilen von unten nach oben und man kommt zum Schluss, dass auch die Anfangsliste [1,3,5] eine Liste sein muss. Der Aufbau unserer Liste ist daher [1,3,5] = 1 : (3 : (5 : )) oder kurz: [1,3,5] = 1 : 3 : 5 :  Benutzt man die zweite Schreibweise, so muss einem klar sein, dass eigentlich von rechts aus geklammert sein müsste und man aus Gründen der Bequemlichkeit diese Klammern weggelassen hat. (Mitunter lässt man auch  noch weg obwohl die leere Liste ja grundlegend für die Konstruktion einer Liste ist). Zeichnerisch veranschaulicht sieht eine Liste daher so aus: Auch Funktionen, die Listen verarbeiten, sind oft nach dem gleichen rekursiven Muster aufgebaut. Ein Beispiel ist die unten dargestellte Funktion anwenden, die auf jedes Element einer Liste eine Funktion f anwendet. (Haskell hat eine solche Funktion natürlich schon implementiert. Sie heißt map). anwenden:: (a -> b) -> [a] -> [b] anwenden f  =  -- (Induktionsanfang) 14\n15 anwenden f (x:xs) = (f x): anwenden f xs -- (Induktionsschluss) In Zeile Induktionsanfang wird die leere Liste durch Musteranpassung abgefangen (Stoppfall der Rekursion, in Mathematik gerne Induktionsanfang genannt). In Zeile Induktionsschluss wird die Funktion f auf das erste Element der Liste angewandt und danach das Ergebnis mit einem rekursiven Aufruf der Restliste angefügt. Die Funktion anwenden kann auf beliebige Listen losgelassen werden. Zu beachten ist nur, dass die Parameter zusammenpassen: Das erste Argument muss eine Funktion sein, die eine Liste vom Typ des zweiten Parameters (Typ a) erwartet und als Ergebnis eine Liste mit Elementen vom Typ b zurückliefert. Solche universellen Funktionen nennt man polymorph. Beispiele: Main> anwenden sin [0,pi/2,pi] [0.0,1.0,0.0] Main> anwenden toupper "Hallo" "HALLO" Ahnen Sie nun, welches Potenzial in dieser Technik stecken? Angenommen, Sie wollen mal auf die Schnelle das Produkt der natürlichen Zahlen von 1 bis 200 berechenen. Dann sieht das in Haskell so aus: Hugs> product [1..200] (Nein, Sie müssen das Ergebnis nicht aussprechen...) Aufgabe 6 Versuchen Sie durch Erfragen des Typs ( z.b. : t sum ) und durch einfaches Testen, die Wirkungsweise der folgenden Funktionen für Listen zu verstehen: sum, product, maximum, reverse, length, (++), head, tail, drop, take, init, last Mit Listen ist es sehr einfach, Funktions-Tabellen zu erstellen. --Tabelle für die Funktion f von a bis b mit 20 Schritten tabelle20 ::(Float -> Float) -> Float -> Float -> [Float] tabelle20 f a b = [f(x) x<-[a, a+(b-a)/20.. b]] Mit dem Ergebnis: Main> tabelle20 quadrat\n16 [0.0,0.01,0.04,0.09,0.16,0.25,0.36, , , ,1.0,1.21,1.44, , , , , , , , ] (Wenn Ihnen die Genaugikeit nicht ausreicht, verwenden Sie Double statt Float) Um die Anzahl der Schritte variabel zu halten, muss nur wenig geändert werden: --Tabelle für die Funktion f von a bis b mit n Schritten tabelle ::(Float -> Float) -> Float -> Float -> Float -> [Float] tabelle f a b n = [f(a+i*(b-a)/n) i<-[0..n]] Schauen Sie sich genau an, wie man erreicht hat, dass n+1 Funktionswerte (zwischen a und b mit Abstand (b-a)/n) in die Liste geschrieben werden! Und jetzt ein kleiner Test des neuen Codes: Eine Tabelle für die Sinusfunktion zwischen 0 und 3 in 100 Schritten ist gewünscht: Main> tabelle (\_x->sin x) [0.0, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , ] Damit kann man natürlich auch noch mehr anfangen: Zum Beispiel das Integral einer stetigen Funktion f näherungsweise mit der Unter- bzw Untersummenregel berechenen. (Siehe Bild rechts für die Obersumme gezeichnet) Die Fläche unter dem Schaubild von a bis b bekommt man danach (ungefähr), wenn man br*f(a+1*br) + br*f(a+2*br)...+br*f(b) mit br = (b-a)/n 16\n17 zusammenzählt. Im Bild sind das die fünf gelben Rechtecke. Hier ist das Ergebnis mit n = 5 natürlich noch sehr schlecht. Wie kann man es besser machen? Und nun der Programmcode hierzu in Haskell: --Integral-Näherung flaeche :: (Double -> Double) -> Double -> Double -> Double -> Double flaeche f a b n= br*sum [f(a+i*br) i<-[1..n]] where br = (b-a) /n Wem die Schreibweise der Liste mit i<-[1..n] suspekt ist, wählt diese Lösung: flaeche2 :: (Double -> Double) -> Double -> Double -> Double -> Double flaeche2 f a b n = br*sum (map f [a,a+br..b]) where br = (b-a) /n Ein Beispiel dazu (a=0, b=4, n=10000): Main> flaeche (\_x->x^3) Mit einer Million Abschnitte bekommt man bereits Der exakte Wert ist 64 (= 1/4* 4 4 für alle, die die Integralrechnung schon beherrschen!) Erinnern Sie sich an das Sieb des Eratosthenes? Ein besonders wirkungsvoller Algorithmus zur Primzahlberechnung mit einem leider sehr hohen Speicherbedarf! Lesen Sie dazu hier nach: Und so sieht der Zweizeiler dazu in Haskell aus: primzahlen = sieb [2..] where sieb (x:xs) = x:sieb [y y <- xs, y `mod` x /= 0] Rekursion und unendliche Liste! So einfach kann ein Programm sein. Wer will, kann ja mal versuchen, das Programm in Visual C#, Delphi, Java oderphp zu programmmieren... (Achtung: Infix-Operatoren also solche, die nicht vor den Variablen sondern zwischen ihnen stehen wie mod, muss man in accents graves einschließen!) Aufgabe 7 Ändern Sie die obige Definition so ab, dass die Primzahlen bis zu einer bestimmten Zahl ausgegeben werden: primzahlen_bis :: Integral a => a -> [a] Formulieren Sie zunächst eine Definition für einen Primzahltest: istprim :: Integral a => a -> Bool (Tipp: Es gibt kein n in [1..x] für das x mod n = 0) Schreiben Sie damit eine Definition zur Bestimmung von Primzahlzwillingen bis m. 17\n18 Tupel Listen sind in Haskell ein ganz wesentliches Element. Erst mit ihnen wird eine funktionale Programmiersprache erst konkurenzfähig. Dennoch sind auch Listen nicht immer das passende Mittel. Ein Beispiel: Eine mp3-datei enthält in der Regel nicht nur die Musik sondern auch sogenannte Tags in denen Informationen zu dieser Datei gespeichert sein können. Ein Tupel, das dem obigen Beispiel gerecht wird, könnte die Form (String, String, String, String, Int, Int, String) haben. Das erste Tupel wäre dann: ("La Vie en Rose", "Edit Piaf", "Edit Piaf", "World Of Disc 1", 1, 2002) Der WinHugs- Editor stellt leider nur Tupel mit maximal fünf Elementen dar. Rechnen kann man aber mit deutlich längeren Tupeln. Eine Funktion, die das zweite Element, also den Interpret, aus dem Tag ausliest, kann man so definieren: --zweites Element von sechs interpret :: (a,b,c,d,e,f) -> b interpret (a,b,c,d,e,f) = b Mit dem Aufruf: Main> interpret ("La Vie en Rose", "Edit Piaf", "Edit Piaf", "World Of Disc 1", 1, 2002) "Edit Piaf" Wer seine gesamte Musiksammlung getaggt hat, besitzt also eine Liste aus Tupeln. Mit der map-und der interpret-funktion kann man sich dann beispielsweise alle Interpreten der Sammlung auslesen lassen. In der Praxis haben die meisten Haskell-Tupel zwei (Paare) oder drei (Trippel) Elemente. Für Paare gibt es zwei Standardfunktionen: Main> fst ('a','b') 'a' Main> snd (3,4) 4 Beachten Sie, dass man diese beiden Funktionen nur auf Tupel mit zwei Elementen anwenden kann. Ein Anwendungsbeispiel aus der Mathematik ist das Skalarprodukt im dreidimensionalen Raum. ( ) In Haskell lässt sich es so darstellen: skalarprodukt :: (Float, Float, Float) -> (Float, Float, Float) -> Float skalarprodukt (x1,x2,x3) (y1,y2,y3) = x1*y1+x2*y2+x3*y3 Mit dem Aufruf: Main> skalarprodukt (4.5,2.7,6.3) (9.2,4.8,2.6)\n19 Aufgabe 8 Definieren Sie eine Funktion tausch2, die die zwei Werte eines Paares vertauscht. Schreiben Sie eine Funktion abstand2, die den Abstand zweier Punkte 2 2 P(x1,y1) und Q(x2,y2) in der Ebene berechnet. ( d = ( x2 x1) + ( y2 y1) ) Auch im 3-dimensionalen Raum kann man den Abstand zweier Punkte P(x1,y1,z1) und Q(x2,y2,z2) berechnen. Schreiben Sie hierfür die Funktion abstand3. ( d = ( x2 x1) + ( y2 y1) + ( z2 z1) ) Es soll der Abstand zweier Städte, deren Geodaten (Längengrad, Breitengrad) bekannt sind, errechnet werden. Die Formel: abstandlb = acos[ sin(breite1)*sin(breite2) + cos(breite1)*cos(breite2)*cos(laenge2-laenge1) ] * erdradius Dabei ist erdradius = 6371 km. acos ist die Umkehrfunktion des Cosinus. Beachten Sie: breite1, laenge1 etc. müssen in Bogenmaß eingegeben werden: l1 (im Bogenmaß)= laenge1*pi/180 etc. Zürich hat die Geokoordinaten (Länge,Breite) (8.54 Grad, Grad). Los Angeles liegt auf ( Grad, Grad). Wieviel km beträgt der kürzeste Abstand? Mit GoogleEarth können Sie sich übrigens die Geodaten jedes beliebigen Ortes beschaffen. Da diese aber in Grad, Minuten und Sekunden angegeben werden, müssen sie erst in Dezimalzahlen umgewandelt werden. Beispiel: ,44 = / ,44/3600 = 47, Hier ein einfaches Beispiel, wie man mit einer Liste von Tupeln umgehen kann: Sind mehrere nummerierte Punkte einer Ebene gegeben, so kann man einen Streckenzug von Punkt 1 zu Punkt 2 etc. und schließlich bis zum Endpunkt festlegen. 19\n20 Die Liste könnte so aussehen: punktl = [(1.0,1.2), (0.3, -2.4), (-3.9, 4.7), (6.7,2.9)] Eine Liste ( laengenl2 )mit den Abständen zwischen den einzelnen Punkten wäre hilfreich, die Funktion gesamtlaenge2 zu definieren. Für das obige Beispiel: laengenl = [ , , ] und hat damit ein Element weniger als die ursprüngliche Liste aus Paaren. laengenl2 :: [(Double,Double)] -> [Double] laengenl2 [ ] = [ ] laengenl2 (x : [ ]) = [ ] -- nur ein Punkt ergibt keine Länge! laengenl2 (p1 : p2 : restpunkte) = (abstand2 p1 p2) : (laengenl2(p2 : restpunkte)) Ein kurzer Test der Hilfsfunktion zeigt, dass wir auf dem richtigen Weg sind. Die Streckenlängen zwischen den Punkten müssen nun noch aufaddiert werden. Zwar gibt es mit sum eine passende Listenfunktion in Haskell wir werden, der Übung halber diese Funktion selbst schreiben: summe :: Num a => [a] -> a summe [ ] = 0 summe (x : xs) = x + (summe xs) Aufgabe 9 Definieren Sie mit den neuen Hilfsfunktionen die gesuchte Funktion gesamtlaenge2. Zeigen Sie, dass die Gesamtlänge im obigen Beispiel beträgt. Definieren Sie eine Funktion gesamtlaenge3, die die Länge eines Streckenzuges im dreidimensionalen Raum berechnet. Verwenden Sie als Beispiel die Punkteliste: [(2.3,7.4,9.2),(3.4,6.9,-3.2),(-3.0,4.2,-2.8),(6.7,3.1,1.2)] Currying und uncyrrying Bisher waren unsere Funktionen so aufgebaut, dass man einen Wert nach dem anderen ohne Klammer hinter die Funktion schrieb. Beispiel: plus 5 7. Dies nennt man nach Haskell Curry currying. Das hat, wie wir später noch genauer sehen werden, den Vorteil, dass man auch partielle Funktionen erzeugen kann. Etwas plus5 = plus 5. Andererseits ist es mit Hilfe der Tupel jetzt auch möglich, der Funktion alle Werte auf einmal zu übergeben (uncurrying). In unserem Beipiel könnte man ein Paar-Plus so definieren: plusp :: (Float, Float) -> Float plusp (x,y) = x + y Zwischen diesen beiden Funktionen kann man beliebig hin- und her springen: curry addierep 3 5 Oder auch anders herum: uncurry addiere (3,5) Testen Sie das Currying und das Uncurrying! 20\n21 Funktionen für Listen Sobald man einige Zeit mit Listen gearbeitet hat, merkt man, dass es praktisch wäre, wenn man Funktionen zur Verfügung hat, die etwas Listen-typisches können, wie zusammenfügen, ordnen, einfügen oder entfernen. Beginnen wir daher mit einer Aufgabe Aufgabe 9 Schreibe einen Programmcode für eine Funktion: entfernenint :: Integer -> [Integer] -> [Integer] Beispiel : Main> entfernenint 3[1,2,3,4,5] [1,2,4,5] Schreibe den obigen Programmcode um,so dass entferne ein überladene Funktion wird. Beachten Sie, dass ein Vergleich für die Elemente vorgenommen werden muss. Die Klasse, aus der die Elemente genommen werden können, ist also mindestens Eq. Erzeuge eine Funktion zusammen, die zwei gleichartige Listen zu einer Liste zusammenfügt. Beispiel: Main> zusammen [2,4,6] [1,3,5] [2,4,6,1,3,5] Die wichtigsten Funktionen, die auf Listen wirken, sind polymorph oder wenigstens überladen. Im ersten Fall kann man sie für alle Listen verwenden, im zweiten Fall auf eine ganze Gruppe, wie zum Beispiel Listen, die aus Zahlen bestehen (Num). Die oben selbst gebastelte Funktion zusammen, ist polymorph. Sie ist in Haskell bereits vordefiniert durch ++ Main> [2,4,6] ++ [1,3,5] [2,4,6,1,3,5] Etwas anderes ist es, zwei bereits geordnete Listen zu einer geordenten Liste zusammenzufügen. Machen Sie sich an einem einfachen Beispiel, wie etwa [1, 3, 5] und [2, 4, 6] klar, dass folgender Programmcode diesen Zweck erfüllt: merge  ys = ys merge (x:xs) = x:xs --Induktionsanfang merge (x:xs) (y:ys) x <= y = x:merge xs (y:ys) x > y = y:merge (x:xs) ys Main> merge [1,3,5] [2,4,6] [1,2,3,4,5,6] Erstes Zwischenergebnis: 1 : merge [3, 5] [2, 4, 6] Zweites Zwischenergebnis: 1 : 2 : merge [3, 5] [4, 6] 21\n22 Wie geht es weiter? Problem: Wie kann man eine Funktion merge_ordnung auf zwei ungeordneten Listen definieren, die die beiden in eine geordnete Liste zusammenfügt? Also z.b.: merge_ordnung [3, 2] [9, 1] = [1, 2, 3, 9] Zunächst ist klar, dass man die beiden Listen nur einzeln ordnen muss. Denn dann kann man die obige Funktion merge darauf anwenden. Wir brauchen also eine Funktion sortiere :: Ord a => [a] -> [a], also: sortiere [4, 1, 6] = [1, 4, 6] sortiere Hierfür werden wir das sogenannte Sortierverfahren insertion-sort verwenden. Die Idee ist sehr einfach: Zunächst benötigt man eine passend_einsetzen Funktion. Sie soll ein einzelnes Element korrekt in eine schon geordnete Liste einfügen. Zum Beispiel: passend_einsetzen 4 [2, 6] = [2, 4, 6] Dann setzt man jedes einzelne Element der ungeordneten Liste durch die Funktion nach_rechts in eine neue, diesesmal aber automatisch geordnete Liste ein. Die neue Liste ist zunächst leer. Ein Beispiel: sortiere [4, 1, 6] = nach_rechts [4, 1, 6] [ ] = nach_rechts [1, 6] (passend_einsetzen 4 [ ]) = nach_rechts [1, 6]  = nach_rechts  (passend_einsetzen 1 ) =? Zunächst also erstellen wir eine Funktion für passend_einsetzen. Polymorph können wir die Funktion nicht gestalten, da Relationen, wie größer oder kleiner möglich sein müssen. Die größtmögliche passende Klasse wäre Ord. Eingabe sind ein Ord- Element und eine Ord-Liste. Ausgabe ebenfalls eine Ord-Liste: passend_einsetzen :: Ord a => a -> [a] -> [a] Nun noch die Festlegung, wie passend_einsetzen auf eine leere Liste und wie auf eine gefüllte wirken muss: passend_einsetzen y [ ] = [y] passend_einsetzen y (x:xs) -- x : xs ist schon geordnet y<x = y:x:xs -- y ist kleinstes Element otherwise = x: (passend_einsetzen y xs) -- x ist kleinstes Element Es fehlt noch die Festlegung für nach_rechts. Zwei Listen werden eingegeben und eine Liste wird ausgegeben: nach_rechts :: Ord a => [a] -> [a] -> [a] Am Ende ist die Rekursion, wenn es aus der linken Liste nichts mehr in die rechte Liste (=gliste für geordnete Liste ) eingefügt werden kann, weil erstere leer ist. nach_rechts [ ] gliste = gliste Ist die linke Liste nicht leer, so wird ihr erstes Element in die geordnete_liste passend eingesetzt: 22\n23 nach_rechts (x:xs) gliste = nach_rechts xs (passen_einsetzen x gliste) Aufgabe 9 Versuchen Sie mit Hilfe des obigen Beispiels die Rekursion zu verstehen. Testen Sie nach_rechts z.b. durch Main> nach_rechts [3,6,1] [2,5] [1,2,3,5,6] Versuchen Sie nun die Funktion sortiere mit Hilfe von nach_rechts zu erstellen! (Tipp: Bringen Sie die ungeordnete Liste nach_rechts in eine zunächst leere Liste!) merge_ordnung Das Ziel war, zwei ungeordnete Listen durch eine Funktion namens merge_ordnung in einer geordneten Liste zu vereinigen. Da wir bereits die Funktion nach_rechts haben, die lediglich davon ausgeht, dass die rechte Liste bereits geordnet ist, müssen wir daher nur mit sortiere dafür sorgen, dass die rechte Liste auch geordnet ist: --Zwei ungeordnete Listen in einer geordneten Liste vereinigen merge_ordnung :: Ord a => [a] -> [a] -> [a] merge_ordnung liste1 liste2 = nach_rechts liste1 (sortiere liste2) elementnummer Die Listen in Haskell sind mit Null beginnend indiziert. Das bedeutet, dass man sich zum Beispiel das dritte Element einer Liste ausgeben lassen kann: Main> [2,3,4,5,6]!! 2 4 Zur Übung schreiben wir einen solchen Indexzugriff selbst. Der Aufruf soll so aussehen: elementnummer [2,4,6,8] 1 (= 4) So kann man ihn erzeugen: --indexzugriff eigen elementnummer :: [a]->int->a elementnummer (x:xs) 0 = x elementnummer (x:xs) (n+1) = elementnummer xs n 23\n24 map-, filter- und fold-studien Die map-funktion ist vermutlich die wichtigste aller Listen-Funktionen. Wir haben sie oben bereits selbst als anwenden Funktion definiert. Zur Erinnerung: anwenden:: (a -> b) -> [a] -> [b] anwenden f  =  -- (Induktionsanfang) anwenden f (x:xs) = (f x): anwenden f xs -- (Induktionsschluss) Im Folgenden können Sie also immer wenn die Funktion map verwendet wird, ebenso gut die Funktion anwenden nutzen, sofern Sie sie importiert haben. Als weiteres Beispiel für die map- Funktion werden wir die Caesar-Verschlüsselung programmieren. Hier wird jeder Buchstabe um einen bestimmten Wert n im Alphabeth verschoben. Für n = 3 würde beispielsweise aus C -> F und aus Z -> C. Wir wollen, wie in der Kryptologie üblich, nur Großbuchstaben ohne Umlaute verwenden. Diese Art der Verschlüsselung ist zugegebenermaßen nicht ernst zu nehmen. Hat man die Technik im Umgang mit Character aber einmal verstanden, so sind anspruchsvollere Verschlüsselungen kein Problem mehr. WinHugs muss den Umgang mit ASCII-Tabellen erst beigebracht werden. Dazu benutzen Sie das Modul Char.hs im Verzeichnis C:\_Programme\_WinHugs\_packages\_hugsbase\_Hugs Am besten kopieren Sie alles aus dieser Datei bis auf die zu ladenden Module, die ja schon geladen sind, in Ihre neue Datei namens caeser.hs. Nach dem Laden zeigt Ihnen der Befehl Hugs.Char> ord 'A' 65 dass der Buchstabe A durch 65 im ASCII-Code festgelegt ist. Will man zu einem ASCII-Code das zugehörige Zeichen wissen, so schreibt man: Hugs.Char> chr 90 'Z' Will man die Großbuchstaben von A bis Z bei Null beginnend durchnummeriert haben, so bietet sich folgende Funktion an: stelle :: Char -> Int stelle zeichen = (ord zeichen) -65 Und die Umkehrung: buchstabe :: Int -> Char buchstabe stelle = chr ( stelle + 65) Jetzt kann man durch Eingabe der Stelle des Zeichens und des Schlüssels n die neue Position des verschlüsselten Buchstabens errechen: verschiebe :: Int -> Int -> Int verschiebe n stelle = mod (stelle + n) 26 24\n25 Nimmt man alles zusammen, so lässt sich eine Funktion caesar auf Character definieren: caesar :: Int -> Char -> Char caesar n zeichen = buchstabe (verschiebe n (stelle zeichen)) In der Mathematik würde die caesar n Funktion als Verkettung geschrieben: caesar n (zeichen) = (buchstabe(verschiebe n (stelle(zeichen))) = (buchstabe o verschiebe n o stelle) (zeichen) Und genau so wird dies auch in Haskell gemacht, nur der Verknüpfungszeichen o wird als einfacher Punkt geschrieben: caesarv :: Int -> Char -> Char caesarv n zeichen = (buchstabe. verschiebe n. stelle) zeichen (Das große V im Namen soll auf Verknüpfung hindeuten.) Und nun kommt map ins Spiel: Main> map (caesar 4) "HALLOALLEMITEINANDER" "LEPPSEPPIQMXIMRERHIV" Der String HALLO. ist eine Liste aus Character. Also kann man mittels map die (caeser 4) Funktion auf alle Character wirken lassen. Bequemer geht es nicht! Aufgabe 10 Definieren Sie eine Funktion caesarstring :: Int -> String -> String, die unter Verwendung eines Schlüssels n einen vorgegebenen String aus Großbuchstaben verschlüsselt. Wie kann man diese Funktion für die Entschlüsselung eines Textes verwenden? Aufgabe 11 Die Funktion caesarstring aus Aufgabe 10 wurde durch die Verknüpfung der drei Funktionen buchstabe, verschiebe n und stelle erzeugt. Natürlich kann man eine derartige Funktion auch in einem Zug definieren. So zum Beispiel: caesartext :: Int -> String -> String caesartext _  =  caesartext n (x:xs) = verschluesselt : caesartext n xs where verschluesselt = chr(65 + mod (ord x n) 26) Versuchen Sie die Wirkungsweise der Funktion caesertext nachzuvollziehen und testen Sie die Definition. Wie kann man den verschlüsselten Text wieder entschlüsseln? (Tipp: Man denkt zunächst daran, den Wert der Verschiebung durch Subtraktion wieder rückgängig zu machen. Das würde aber bedeuten, dass wir eine neue Funktion schreiben müssten. Man kann aber durch eine geeignete Addition ebenfalls erreichen, dass die Verschiebung wieder rückgängig gemacht wird ) 25\n26 Wie Sie wissen, ist die Cäsar-Verschlüsselung sehr leicht zu entschlüsseln. Es gibt ja nur 26 Möglichkeiten der Verschiebung. Sehr viel schwerer macht man es dem Angreifer, wenn die Buchstaben der Reihe nach mit verschiedenen Werten verschoben wird. Ein Beispiel: Das Wort HALLO könnte immer abwechselnd um 1 und 2 verschoben werden. Man könnte sich daher eine Funktion caesarvar vorstellen, die man so aufruft: caesarvar [1,2] HALLO "ICMNP" Nach einigen Überlegungen erkennt man jedoch, dass noch ein Akkumulator mit auf den Weg gegeben werden muss, der festhält, wo man gerade in der Liste sich befindet bzw. bei welchem Wert man starten soll. In der Regel dürfte dies Null sein, so dass der Aufruf dann so aussehen würde: caesarvar 0 [1,2] HALLO Die Liste [1,2] bezeichnet man übrigens als Schlüssel, da ohne sie kein öffnen des Geheimtextes möglich ist. (Zugegeben: Bei einem so kurzen Schlüssel kommt man vermutlich auch mit Gewalt brutal force an den Inhalt!) Hier ein Vorschlag für eine solche Funktion: caesarvar :: Int -> [Int] -> String -> String caesarvar n schluessel [ ] = [ ] caesarvar n schluessel (x:xs) (n+1) < length(schluessel) = caesar m x : caesarvar (n+1) schluessel xs (n+1) >= length(schluessel) = caesar m x : caesarvar 0 schluessel xs where m = elementnummer schluessel n Aufgabe 12 Die folgenden beiden Aufgaben sind relativ einfach zu lösen und zeigen dabei eindrucksvoll, welche Möglichkeiten man mit der Funktion map hat: Ein Internetshop verkauft verschiedene Artikel, mit Netto-Preisen von 1, 2, 3,, also immer Cent-freie Beträge. Nun muss der Kunde aber noch 19% Mehrwertsteuer bezahlen, bekommt aber auf den Gesamtbetrag bei Sofort-Zahlung 3% Skonto. Definieren Sie eine dazu passende Funktion endpreis, mit deren Hilfe dann endpreisliste erzeugt werden kann. Anwendung: endpreisliste [ ] soll dann alle möglichen Endpreise erzeugen. Viel besser wäre es, wenn aus der Netto-Preisliste eine Paar-Liste aus Netto- Preis und Endpreis erzeugt würde. Definieren Sie eine passende Funktion listeinpreisendpreisliste :: [Float] -> [(Float, Float)] Tipp: Erzeugen Sie zunächste eine Funktion listeinpaarliste :: [a] -> [(a,a)], dann preisendpreis :: (Float, Float) -> (Float, Float) und schließlich preisendpreisliste :: [(Float, Float)] -> [(Float, Float)]. Anwendungsbeispiel: Main> listeinpreisendpreisliste [1..10] [(1.0,1.1543),(2.0,2.3086),(3.0,3.4629),(4.0,4.6172),(5.0,5.7715),(6.0,6.9258),( 7.0,8.0801),(8.0, ),(9.0, ),(10.0,11.543)] 26\n27 Eine Filterfunktion, die rekursiv bestimmte Elemente einer Liste auswählt, ist mit filter in Haskell bereits fest vorgegeben: filter :: (a -> Bool) -> [a] -> [a] Man benötigt offensichtlich eine Bedingung für a und eine Liste. Beispiel zunächst für eine Bedingung: istnegativ :: (Ord a, Num a) => a -> Bool istnegativ zahl = (zahl < 0) Es mag Sie verwundern, dass man zwei Klassen angeben muss, um eine solche Bedingung für alle Zahlen zu definieren. Num reicht nicht, weil in Num auch komplexe Zahlen definiert sind. Für diese gibt es kein kleiner. Ord reicht nicht, weil der Vergleich mit einer Zahl (0) erfolgt. Natürlich könnte man sich das Leben auch einfach machen und (mit Recht) darauf vertrauen, dass bei der Definition istnegativ :: Float -> Bool auch alles gut geht, weil eine Integer (ohne Dezimalpunkt) in Haskell als Float durchgeht Damit kann man eine Filterfunktion für Listen aus Zahlen definieren: nurnegative :: (Ord a, Num a) => [a] -> [a] nurnegative liste = filter istnegativ liste Beispiel: Main> nurnegative [ ] [-20,-19,-18,-17,-16,-15,-14,-13,-12,-11,-10,-9,-8,-7,-6,-5,-4,-3,-2,-1] Soweit die Vorübung. Die Filterfunktion soll, um die Verschlüsselung von Text später etwas komfortabler zu gestalten, alle Blanks aus einem Text entfernen. In einem zweiten und dritten Schritt werden später dann noch alle Buchstaben in Großbuchstaben verwandelt und danach die Umlaute ersetzt (Ö = OE etc.), so dass man einen gewöhnlich geschriebenen Text in die für die Verschlüsselung korrekte Form bringen kann. Zifffern und Sonderzeichen werden bei dieser Form der Verschlüsselung jedoch nicht berücksichtigt! Die Bedingung: istnichtblank :: Char -> Bool istnichtblank zeichen = (zeichen /= ' ') Die Funktion mit Anwendung: nichtblank :: String -> String nichtblank text = filter istnichtblank text Main> nichtblank "Hallo alle miteinander!" "Halloallemiteinander!" Aufgabe 13 Um einen beliebigen Text für die Standard-Verschlüsselung anzupassen, müssen nicht nur die Blanks entfernt werden. Danach sollte man alle Umlauteund ß umschreiben (Ö = OE etc.) und schließlich die Kleinbuchstaben in Großbuchstaben verwandeln. Damit keine Sonderzeichen oder Ziffern übrig bleiben, muss am Ende noch nach Großbuchstaben gefiltert werden. ( dürfen im Text dennoch nicht verwendet werden!) Ein solche zusammengesetzte Funktion könnte so aussehen: textbereinigen :: String -> String textbereinigen text = filter istgrossbuchstabe ((ingrossbuchstaben. umlauteundscharfsweg. nichtblank) text) Schreiben Sie die passenden Teilfunktionen und die Bedingung istgrossbuchstabe 27\n28 Ausgesprochen praktisch sind auch die fold-funktionen foldl und foldr. Eine Anfrage mit :t gibt Auskunft über den Typ der Funktion: Main> :t foldl foldl :: (a -> b -> a) -> a -> [b] -> a (Gilt auch für foldr) fold erwartet als Eingabe eine Relation, einen beliebigen Wert und eine Liste. Zwei einfache Beispiele (Klammern dienen hier Demonstration der Reihenfolge): foldl (+) 0 [1,2,3] = fold (+) (0+1) [2,3] = foldl (+) ((0+1)+2)  = foldl (+) (((0+1)+2)+3) [ ] = (((0+1)+2)+3) = 6 foldr (*) 1 [4,5,6] = foldr (*) (1*6) [4,5] = foldr (*) ((1*6)*5)  = foldr (*) (((1*6)*5)*4) [ ] = (((1*6)*5)*4) = 120 Die Anfangswerte 0 bzw. 1 dienen hier als Akkumulator. Meist gibt es, abhängig von der Relation, einen Standard-Akkumulator. Mehr dazu unter Partielle Funktionen. Mit diesen Funktionen und mit der bereits erstellten Funktion passend_einsetzen lässt sich eine sehr einfache Sortierfunktion beispielsweise für Float-Werte definieren: floatsort :: [Float] -> [Float] floatsort xs = foldr passend_einsetzen [ ] xs Dass foldl und foldr verschiedene Ergebnisse haben können, erkennt man, wenn man als Relation die üblichen (+) bzw. (*)-Beispiele verlässt. Aufgabe 14 Untersuchen Sie, welche Definition und Wirkung die Relation (:) hat. Mit flip werden die Eingabeparameter vertauscht: (-) 3 4 = -1, während flip (-) 3 4 = 1. Welche Definition und Wirkung hat die Relation (flip (:) )? Definieren Sie nun ein Funktion invertiere :: [a] -> [a], die eine Liste umdreht: Aus [1,2,3] wird [3,2,1]. Tipp: Verwenden Sie die Funktion (flip (:) ) als Relation für foldl. Welchen neutralen Parameter muss man übergeben? Um zum Beispiel das Maximum einer Liste zu suchen, kann man die Funktion foldl1 verwenden. Sie ist definiert durch: foldl1 f (x:xs) = foldl f x xs Das bedeutet, dass foldl1 nicht auf leere Listen wirken kann, denn als zu übergebende Parameter wird einfach das erste Listenelement verwendet. Als Relation bietet sich max :: Int -> Int -> Int an: maximum :: Ord a => [a] -> a maximum liste = foldl1 max liste Wenn Sie maximum auf eine leere Liste anwenden, bekommen Sie daher eine Fehlermeldung. 28\n29 Partielle Funktionen Wenn man der Bequemlichkeit halber immer mit Schlüssel n = 5 arbeiten will, so lässt sich eine angepasste Funktion definieren: caesarstring5 :: String -> String caesarstring5 = caesarstring 5 caesarstring erwartet zwei Eingaben, caesarstring5 nur eine! Diese Art der Auswertung der Funktion caesarstring nennt man partiell. Aus einer Funktion f :: Int -> String -> String entsteht die Funktion f n :: String -> String, die dann auch kurz h :: String -> String genannt werden kann. Partielle Funktionen müssen daher die ersten Eingaben (links) der ursprünglichen Funktion bekannt sein. Dadurch entsteht eine neue Funktion, die auf die Eingabe der restlichen Parameter (rechts) wartet. caesarvar in partielle Funktion verwandeln Die obige Funktion caesarvar benötigt immer noch die Eingabe des Akkumulators. Dieser ist aber in aller Regel Null. Deshalb liegt es nahe, die partielle Funktion caesarvariabel :: [Int] -> String -> String caesarvariabel = caesarvar 0 zu definieren. Aufruf und Ergebnis sehen dann so aus: Main> caesarvariabel [3,7,1,9,11,22,4,15,21,5] "WERDENSCHLUESSELNICHTKENNTHATWENIGCHANCEN" "ZLSMPJWRCQXLTBPHRXXMWRFWYPLPOBHUJPNDECXJQ" Aufgabe 15 Ein Schlüssel der Länge 10 angewandt auf einen Text der Länge 41 weshalb ist das ohne Kenntnis des Schlüssels kaum zu dechiffrieren? Weshalb machen im Schlüssel keine Zahlen oberhalb 26 einen Sinn? Im Schlüssel dürfen Zahlen auch mehrfach vorkommen. Ist in diesem Fall die Entschlüsselung einfacher? Was nutzt die beste Verschlüsselung, wenn man den Geheimtext nicht mehr entschlüsseln kann? Wie wir oben (hoffentlich) eingesehen haben, muss man einen Buchstaben, der beispielsweise mit 5 verschoben wurde, ein zweites Mal mit (26 5) = 21 verschieben und man kommt beim alten Buchstaben raus. Das bedeutet, dass man von jede einzelne Ziffer des Schlüssels 26 abziehen muss und dann diesen neuen Schlüssel der Funktion caesarvariabel mitsamt dem Geheimtext vorsetzten muss. Definieren wir hierzu eine Hilfsfunktion 29\n30 gegenschluessel :: [Int] -> [Int] gegenschluessel schluessel = map (\_x -> 26 - x) schluessel Dann kann man die Entschlüsselungsfunktion so definieren: caesarvariabelentschluesseln schluessel geheimtext = caesarvariabel (gegenschluessel schluessel) geheimtext Das Ganze in der Anwendung: Main> caesarvariabelentschluesseln [3,7,1,9,11,22,4,15,21,5]"ZLSMPJWRCQXLTBPHRXXMWRFWYPLPOBHUJPNDEC XJQ" "WERDENSCHLUESSELNICHTKENNTHATWENIGCHANCEN" Mit der Funktion caesarvariabel und ihrer Umkehrfunktion haben wir ein einfaches aber wirkungsvolles Mittel zur sicheren Verschlüsselung konstruiert. Wirklich sicher darf sich aber nur derjenige fühlen, der einen hinreichend langen Schlüssel verwendet und das ist der Haken an der Sache diesen Schlüssel sicher dem Empfänger übergibt. Man nennt diese Art der Verschlüsselung übrigens polyalphabetisch (im Gegensatz zur Cäsarverschlüsselung, die monoalphabetisch genannt wird). Vigenère (16.Jhrt) hat diese Idee als Erster dokumentiert. Hier finden Sie einige Informationen: Damals wie heute verwendet man als Schlüssel keine Ziffernfolge, wie wir das tun, sondern man verwendet Buchstaben. Der Schlüssel ABBA wäre in unserer Schreibweise dann [1,2,2,1], also A bedeutet Verschiebung um 1,, Z bedeutet Verschiebung um 26. Passen wir unsere Funktionen dementsprechend an. Das Einzige was wir dazu benötigen ist eine Funktion verwandle, die aus einem String- Schlüssel einen Ziffernschlüssel macht: verwandle :: String -> [Int] -- verwandelt String in [Int] mit A = 1, verwandle text = map (\_x -> ord x - 64) text Die Funktion vigenere, die statt einer Ziffernfolge einen String-Schlüssel erwartet, kann dann so geschrieben werden: vigenere :: String -> String -> String vigenere schluesselwort text = caesarvariabel (verwandle schluesselwort) text Aufgabe 16 Definieren Sie die zugehörige Entschlüsselungsfunktion vigenereentschluesseln und testen Sie Verschlüsselung und Entschlüsselung an einigen Beispielen. Wie lang sollte ein sinnvoller Schlüssel maximal sein? Kombinieren Sie die Funktion vigenere mit der oben behandelten Funktion textbereinigen, sodass auch beliebige Texte (aber ohne ) eingegeben werden können. 30\n31 sortiere als partielle Funktion betrachten Zur Übung werden wir die obige sortiere Funktion als partielle Funktion einer allgemeineren Funktion betrachten. Denn es gibt ja ganz offensichtlich viele Möglichkeiten, eine Liste zu sortieren. Bisher ist sortiere nur auf Listen der Elementen-Klasse Ord (Num und Char) erklärt und es wird von klein nach groß geordnet. Beispiel: Main> sortiere "Unordnung" "Udgnnnoru" (Beachte: ord U = 85 aber ord u = 117) Wir wollen eine Funktion sortierea :: (a -> a -> Bool) -> [a] -> [a] definieren, die als erste Eingabe eine Relation (a -> a -> Bool) auf a erwartet. Hierbei sind der Phantasie keine Grenzen gesetzt. Ein einfaches Beispiel wäre die Relation (>), die zu einer absteigenden Sortierung führen würde. Wenn die Relation gar auf Paaren wirkt, ergeben sich noch viel mehr Möglichkeiten. Ein Beispiel: Die Paare (Hans, Müller), (Gustav, Gans), (Marion, Fink), werden im Allgemeinen nach dem Nachnamen, also hier dem zweiten Eintrag des Paares, geordnet. Zur Erinnerung die bisherige sortieren Funktion mit ihren Hilfsfunktionen: -- Element in geordnete Liste einordnen passend_einsetzen :: Ord a => a -> [a] -> [a] passend_einsetzen y [ ] = [y] passend_einsetzen y (x:xs) -- x : xs ist schon geordnet y<x = y:(x:xs) -- y ist kleinstes Element otherwise = x: (passend_einsetzen y xs) -- x ist kleinstes Element --Hilfsfunktion nach_rechts nach_rechts :: Ord a => [a] -> [a] -> [a] nach_rechts [ ] gliste = gliste nach_rechts (x:xs) gliste = nach_rechts xs (passend_einsetzen x gliste) --insertion sort sortiere :: Ord a => [a] -> [a] sortiere liste = nach_rechts liste [ ] Schreiben wir zunächst die erste Hilfsfunktion um: -- Element in geordnete Liste einordnen allgemeine Relation passend_einsetzena :: (a -> a -> Bool) -> a -> [a] -> [a] passend_einsetzena relation y [ ] = [y] passend_einsetzena relation y (x:xs) -- x : xs ist schon geordnet relation y x = y:(x:xs) -- y ist nach vorgebener Relation vorderes Element otherwise = x: (passend_einsetzena relation y xs) -- x vorderes Element Kurzer Test: Main> passend_einsetzena (>) 5 [7,6,1] [7,6,5,1] 31\n32 Fehlt noch die verallgemeinerte Hilfsfunktion --Hilfsfunktion nach_rechtsa nach_rechtsa :: (a -> a -> Bool) -> [a] -> [a] -> [a] nach_rechtsa relation [ ] gliste = gliste nach_rechtsa relation (x:xs) gliste = nach_rechtsa relation xs (passend_einsetzena relation x gliste) Schlussendlich noch die verallgemeinerte Sortierfunktion: sortierea :: (a -> a -> Bool) -> [a] -> [a] sortierea relation liste = nach_rechtsa relation liste [ ] Erneuter Test: Main> sortierea (>) [4,5,6,1,44,42,82,34] [82,44,42,34,6,5,4,1] Die Relation ist kleiner (>) wäre ganz sicher kein Grund, eine verallgemeinerte Sortierfunktion zu schreiben. Der eigentliche Grund sind, wie schon erwähnt, Relationen, die nicht vordefiniert sind wie ist kleiner zwischen zwei Zahlen. Betrachten Sie hierzu eine Liste von 3-er-Tupeln. Erster Eintrag: Vorname, zweiter Eintrag: Nachname, dritter Eintrag: Alter. Beispiel: [( Anton, Maier,53), ( Silke, Born, 21), ( Anja, Dom,44), ( Michael, Hank, 72)] Wer diese Tupel ordnen soll, fragt doch zunächst, nach welchem Kriterium zu ordnen ist, mit anderen Worten, welche Relation zu verwenden ist. Und genau das ist ein Fall für unsere verallgemeinerte Sortierfunktion. Wir wollen die Tupel nach Alter ordnen. Also brauchen wir erst eine passende Relation: istjuenger :: Ord c => (a,b,c) -> (a,b,c) -> Bool istjuenger (x1,y1,z1) (x2,y2,z2) = z1<z2 Die passende Sortierfunktion: sortierenachalter :: Ord c => [(a,b,c)] -> [(a,b,c)] sortierenachalter = sortierea istjuenger Mit fold lassen sich viele Operationen auf Listen anwenden. Ein Beispiel: Sie wollen die logische Operation or auf eine boolsche Liste [true, false,true,false] anwenden. Wenn wir die Liste von links nach rechts lesen wollen, dann wäre dies eine Lösung, die foldl als partielle Funktion nutzt: or = foldl ( ) False Aufgabe 17 Schreiben Sie nun eine Funktion für die obigen Tupel, die nach Nachnamen sortiert. Tipp: Zuerst die Relation kleinernachname definieren! Drücken Sie die logische Operationen and mit foldl aus. Ergibt die Kombination mit foldr das gleiche Ergebnis? 32\n33 In Aufgabe 4 haben wir uns mit der Fibonacci-Folge beschäftigt. Es war zwar nicht weiter schwierig, das Problem rekursiv zu lösen, - die Ausführungsgeschwindigkeit war allerdings mehr als bescheiden. Mit Listen geht es viel, viel schneller: fibschnell :: [Integer] fibschnell = 0 : 1 : (zipwith (+) fibschnell (tail fibschnell)) Wie Sie oben schon selbst herausgefunden haben entfernt tail das erste Element einer Liste. Neu ist für uns zipwith: Hier werden zwei Listen elementweise mit einer bestimmten Funktion ( hier (+) ) verknüpft. Zum Beispiel die Verknüpfung mit (*): Main> zipwith (*)[1, 4, 6] [7, 8, 9] [7,32,54] Der obige Programmcode für die Fibonacci- Folge ist eine Konstruktionsvorschrift : 0 : 1 : (zipwith (+) [0,1,f1,f2,f3..] [1,f1,f2,f3..]) Man erkennt sofort, dass f1 =1 sein muss. Daraus ergibt sich dann f2 etc. Hier noch ein gut gemeinter Rat: Positionieren Sie die Maus direkt über dem kleinen Quadrat für Stop program execution bevor Sie die Enter-Taste drücken. Denn es darf nicht viel Zeit vergehen zwischen Programmstart und Stopp. Sehen Sie selbst, weshalb das so ist! Bei fast gleichzeitigem Drücken von Keybordund Maustaste ist die letzte Fibonacci-Zahl vor dem Interrupt : Sind Sie schneller? (Es ist schon eine beachtliche Leistung, wenn man die ersten Fibonacci-Zahlen noch auf der Liste hat. Denn wegen der maximal zulässigen Anzahl von Zeichen auf dem Editor, wird immer wieder von vorn her gelöscht. Nach bereits recht kurzer Zeit stoppt der Prozess, denn dann ist der Papierkorb voll! Die ganze Liste fünfzehn eng beschriebene Seiten- liegt im Tauschverzeichnis: FibonacciZahlen.doc ) Das obige Konstrukt nennt man übrigens eine unendliche Liste! Unendlich ist sie natürlich nur theoretisch... Auch das ist eine unendliche Liste: quadrate = [n*n n <- [0..]] Testen Sie diese und andere derartige Listen! 33\nFunktionale Programmierung ALP I. Funktionen höherer Ordnung. Teil 2 SS 2013. Prof. Dr. Margarita Esponda. Prof. Dr.\nALP I Funktionen höherer Ordnung Teil 2 SS 2013 Funktionen höherer Ordnung Nehmen wir an, wir möchten alle Zahlen innerhalb einer Liste miteinander addieren addall:: (Num a) => [a -> a addall [ = 0 addall\nWas bisher geschah Funktionale Programmierung in Haskell: Algebraische Datentypen Pattern Matching Polymorphie Typklassen Rekursive Datentypen:\nWas bisher geschah Funktionale Programmierung in Haskell: Algebraische Datentypen Pattern Matching Polymorphie Typklassen Rekursive Datentypen: Peano-Zahlen, Listen, Bäume Rekursive Funktionen strukturelle\nTutorium - Haskell in der Schule. Ralf Dorn - Dennis Buchmann - Felix Last - Carl Ambroselli\nTutorium - Haskell in der Schule Wer sind wir? Otto-Nagel-Gymnasium in Berlin-Biesdorf Hochbegabtenförderung und MacBook-Schule Leistungskurse seit 2005 Einführung Was ist funktionale Programmierung? Einführung\nGrundprinzipien der funktionalen Programmierung\nGrundprinzipien der funktionalen Programmierung Funktionen haben keine Seiteneffekte Eine Funktion berechnet einen Ausgabewert der nur von den Eingabewerten abhängt: 12 inputs + output 46 34 2 Nicht nur\nFunktionale Programmierung mit Haskell. Jan Hermanns\nFunktionale Programmierung mit Haskell Jan Hermanns 1 Programmiersprachen imperativ deklarativ konventionell OO logisch funktional Fortran Smalltalk Prolog Lisp C Eiffel ML Pascal Java Haskell 2 von Neumann\nDefinieren Sie eine Funktion circlearea zur Berechnung der Fläche eines Kreises mit gegebenen Radius (Float).\nHaskell Funktionen Definieren Sie eine Funktion circlearea zur Berechnung der Fläche eines Kreises mit gegebenen Radius (Float). circlearea :: Float -> Float circlearea radius = 2 * pi * radius^2 Definieren\nBeispiele: (Funktionen auf Listen) (3) Bemerkungen: Die Datenstrukturen der Paare (2) Die Datenstrukturen der Paare\nBeispiele: (Funktionen auf Listen) (3) Bemerkungen: 5. Zusammenhängen der Elemente einer Liste von Listen: concat :: [[a]] -> [a] concat xl = if null xl then  else append (head xl) ( concat (tail xl))\n7down Zusatzaufgaben. Mathias Ziebarth und Joachim Breitner. 13. März 2008\n7down Zusatzaufgaben Mathias Ziebarth und Joachim Breitner 13. März 2008 1 Problem 1 Unser Programm hat folgende Lösungen berechnet: Testfall 1 153131 141441 973493 330529 869017 876927 Testfall 2 279841\nGrundlagen der Programmierung 2 (1.C)\nGrundlagen der Programmierung 2 (1.C) Prof. Dr. Manfred Schmidt-Schauÿ Künstliche Intelligenz und Softwaretechnologie 3. Mai 2006 Funktionen auf Listen: map map :: (a -> b) -> [a] -> [b] map f  = \nProgrammiersprache 1 (C++) Prof. Dr. Stefan Enderle NTA Isny 7. Funktionen Einleitung Nach dem Prinzip Divide and Conquer bietet es sich an, größere Aufgaben in kleinere Teile zu unterteilen. Anweisungsblöcke,


iPhone SE zu Weihnachten: Das kostet das Smartphone 2020\nDas iPhone SE ist aktuell bei vielen Anbietern zu Weihnachten im Sortiment - und dürfte den einen oder anderen richtig glücklich machen.\n22. Dezember 2020 - 14:46 Uhr\niPhone SE: Was kostet es zu Weihnachten?\nDas iPhone SE wird garantiert dieses Jahr auf dem Wunschzettel vieler Menschen stehen: Zu Weihnachten sind die Apple-Produkte nämlich besonders begehrt. Aber gerade das iPhone SE strahlt: Als Einsteigermodell in die Apple-Welt kann es die Experten überzeugen. Wie aber sieht der Preis zu Weihnachten aus? Wir haben uns die Angebote bei Saturn, Media Markt & Co. einmal genauer angeschaut.\nDas iPhone SE: Günstiger Einstieg bei Apple?\nZahlreiche Bestnoten konnte das Apple iPhone SE für sich einheimsen seit dem Release im April 2020. Billiger.de ermittelt die Gesamtnote aus Nutzerbewertungen und Testberichten mit 1,7. Computerbild erklärt das iPhone SE zu einem Smartphone mit ordentlicher Akkuleistung von rund sieben Stunden.\nChip hingegen stellt mit der Testnote 1,5 das "neue alte Einsteiger-iPhone" durch einen günstigen Einstiegspreis mit einer hervorragenden Performance heraus. Die kompakte Größe und ein Gewicht von 148 Gramm machen es handlich. Das iPhone SE hat ein hochauflösendes Display und quasi die Leistung des größeren Bruders: Dem iPhone 11. Tatsächlich tauchen Apple-Neulinge mit dem iPhone SE ganz leicht in die Apple-Welt ein, ohne dabei zu schwer auf ihrem Geldbeutel zu sitzen.\nDie wichtigsten Fakten zum iPhone SE\nDisplay: 4,7 Zoll, Retina-Display\nBesonderheiten: Dual-SIM, Fingerabdrucksensor, Gesichtserkennung, Hörgerät-kompatibel, spritzwassergeschützt\nApple iPhone SE – gibt's günstigere Alternativen?\nVergleichen wir den Preis auf der offiziellen Apple-Seite, haben Saturn und Media Markt das iPhone SE nur geringfügig günstiger im Sortiment. Mit 457 Euro schlägt das Einsteigermodell recht hwftig zu Buche: Für ein Weihnachtsgeschenk ist das nicht gerade wenig. Ungemein günstiger gibt es das Smartphone zur Weihnachtszeit aber nicht wirklich. Der Preis sieht so als, als würde er sich auch hinsichtlich des Jahresendes 2020 nicht sonderlich ändern.\nWeihnachten 2020: Beidiesen Shops gibt es tolle Angebote\nWie Sie sehen, hat das iPhone SE einen recht beachtlichen Preis – auch zu Weihnachten. Das sollte Sie aber nicht daran hindern, dass Einsteigermodell zu wählen. Im Gegensatz zu anderen Apple-Produkten schlägt sich das iPhone SE wacker und kann durch einen günstigen Preis durchaus überzeugen. Wer ein iPhone also schon seit geraumer Zeit auf der Wunschliste hat, könnte sich im Jahre 2020 noch einmal einen kleinen Wunsch erfüllen.


04.07.2018 12:50 Uhr\n0 26 0 3 Zum Angebot\nMass Effect: Andromeda war wohl nicht der letzte Teil des Franchises und auch Dragon Age wird nach Anthem offenbar fortgesetzt. Ein neues Star Wars-Spiel von BioWare gibt es aber eher nicht.\nBioWare zeichnet für diverse großartige Star Wars-Spiele verantwortlich, allen voran natürlich Knights of the Old Republic. Aber nach und nach konnte das Entwickler-Studio auch immer mehr eigene Marken wie Dragon Age und Mass Effect etablieren.\nAuf denen soll auch in Zukunft der Fokus liegen, wie Casey Hudson jetzt verrät. Auf ein neues Star Wars-Spiel aus dem Hause BioWare können wir wohl aber lange warten.\nFokus liegt auf Mass Effect & Dragon Age\nAktuell arbeiten die meisten Mitarbeiter des Entwicklers an Anthem, das als nächster BioWare-Titel erscheint. Aber trotzdem arbeite ein kleines Team nebenher auch schon daran, "wie ein neues Dragon Age aussehen könnte".\nDass Dragon Age 4 als nächstes BioWare-Projekt anstehen könnte, wurde schon mehrfach angedeutet beziehungsweise ausgeplaudert. Auch zu Mass Effect wolle der Entwickler definitiv irgendwann zurückkehren.\n"Bei Dragon Age und Mass Effect, dazu wollen wir so schnell wie möglich zurückkehren. Mass Effet ist definitiv ein Spiel, zu dem ich zurückkehren will. [...] Es ist mein Baby. Ich habe dabei geholfen, Mass Effect zu starten, also wollen wir natürlich irgendwann dazu zurückkehren."\nLive-Elemente in Dragon Age 4\nBioWare erklärt, was damit gemeint ist\nOffenbar kein neues Star Wars-Spiel von BioWare geplant\nIm Bezug auf Star Wars sieht die Sache allerdings anders aus. Auch wenn Casey Hudson ihnen nicht komplett ablehnend gegenüber steht, klingt das hier nicht gerade vielversprechend:\n"Eine Herausforderung ist, dass es einen Großteil eines Studios von der Größe BioWares braucht, um ein wirklich großartiges Spiel in diesem Maßstab zu machen, und wir sind ein ziemlich großes Studio."\n"Es gibt so viele andere Spiele, die wir machen wollen, aber wozu wir nicht kommen, also müssen wir gut auswählen und uns durch sie durch bewegen. Aber ich habe Star Wars immer geliebt, ich habe es geliebt, Knights of the Old Republic zu machen. Also ... wir versuchen immer herauszufinden, was als nächstes kommt."\nDie schlechte Nachricht lautet also, dass anscheinend erstmal auf lange Sicht kein neues Star Wars-Spiel von BioWare kommt. Aber es gibt auch gute Neuigkeiten. Offenbar soll es sowohl mit Mass Effect als auch mit Dragon Age weitergehen. Hier könnt ihr euch das Game Informer-Interview ansehen:\nWas wünscht ihr euch mehr, Dragon Age oder Mass Effect?


Geelys Polestar plant die Erweiterung des Showrooms in China, um mit Tesla-Quellen zu konkurrieren | tekk.tv\nYou are at:Home»WELT»Geelys Polestar plant die Erweiterung des Showrooms in China, um mit Tesla-Quellen zu konkurrieren\nGeelys Polestar plant die Erweiterung des Showrooms in China, um mit Tesla-Quellen zu konkurrieren\nSHANGHAI, 2. Juni (Reuters). – Polestar, der Premium-Hersteller von Elektrofahrzeugen im Besitz von Chinas Geely, plant eine große Erweiterung seines Showroom-Netzwerks auf dem Festland .\nVon Yilei Sun und Brenda Goh\nIm Gegensatz zum Verkauf von Autos über Händler, auf die sich die meisten traditionellen Autohersteller verlassen, wird Polestar direkt an Kunden verkaufen, eine Strategie, die auch von anderen EV-Herstellern verfolgt wird, darunter Tesla, Nio Inc und Xpeng Motors, die von Alibaba unterstützt werden.\nIn China verfügt Tesla über 50 Ausstellungsräume. Nio betreibt derzeit rund 110 Showrooms, von denen einige Partner gehören. Xpeng plant, bis Ende des Jahres über 200 Filialen zu haben, von denen jetzt etwa 150 Partner sind. (Berichterstattung von Yilei Sun und Brenda Goh; Redaktion von Muralikumar Anantharaman)


MILANO küchen.werk GmbH - Dresden, DE 01099 | Houzz DE\nhttps://www.houzz.de/pro/anjalaatsch in Zwischenablage kopiert\nIn einem lichtdurchfluteten Industriedenkmal aus der Gründerzeit in Dresden präsentieren wir Ihnen unsere Küchen. Gern schaffen wir nach Ihren Wünschen Ihren LIEBLINGSRAUM – denn Küchen sind unsere Leidenschaft. Bei jedem Kunden freuen wir uns, unsere Ideen und Kreativität genau in die persönliche Situation fließen zu lassen. Hier sind bei der individuellen Küchenplanung keine Grenzen gesetzt. Jede Küche wird erst durch das gekonnte Zusammenspiel aller Komponenten, durch die Komposition von Material, Farbe, Architektur und Licht zum Leben erweckt. Wir achten besonders auf langlebige Materialien (z.B. Naturstein, Keramik, Beton) und beständige Qualität. Durch durchdachte Stauraumlösungen und innovatives Zubehör wird das Arbeiten in unseren Küchen eine Freude. Welches Küchendesign letztlich gewählt wird, unsere Küchen sind der Mittelpunkt des Wohnens für die Familie und wo sich auch die Gäste rundum wohlfühlen. Wir schaffen Lieblingsräume.\n3D Rendering, Arbeitsplatten nach Maß, Küchendesign, Küchenrenovierung, Küchenschränke nach Maß, Outdoorküchen-Design, Küchenmontage, Lichtdesign, Bora, Designküche, V-Zug, Leicht, Gaggenau, Dekton, Quokker, Ewe, intuo, Küchenberatung, Küchenplanung, Küchendesign, Raumkonzepte, einrichten, Wohnraumgestaltung, Wohnraumkonzepte, Innenarchitektur, Konzeption, edra, Sofas von edra, Sitzmöbel\nDresden, Deutschland, Österreich, Schweiz, Bautzen, Leipzig, Chemnitz, Berlin, Bannewitz, Weißig, Meißen, Radebeul, Freital, Görlitz, Pirna, Riesa\nVon folgenden Fachzeitschriften wurden wir als eines der besten Küchenstudios in Deutschland ausgezeichnet: AD-Magazin Architectural Digest AW Architektur & Wohnen DER FEINSCHMECKER houzz Design Award 2021,2022 houzz Service Award 2021, 2022\nMILANO küchen.werk Strecker und Baldzer GmbH & Co. KG Werner-Hartmann-Straße 1 – 3 01099 Dresden USt-IdNr.: DE 812 169 808 KONTAKT: Telefon: 0351 8588414 Fax: 0351 8588415 E-Mail: info@milano-kuechenwerk.de Homepage: www.milano-kuechenwerk.de\nLEICHT - MK2 Steel / Largo\nEchtholzküche im restaurierten Bauernhaus\nmoderne Wohnküche in Dresdens historischer Altstadt\nHarmony in white- LEICHT Küche\nKlaudia und Klaus Oestreicher\nNach unserem ersten unverbindlichen Besuch im Küchenstudio Milano waren wir uns sicher hier unseren Küchenplaner gefunden zu haben. In mehreren ausführlichen Beratungsgesprächen hat Herr Baldzer mit uns das Konzept für unsere Traumküche erarbeitet. Vollständige Bewertung lesen\n20 Bewertungen für MILANO küchen.werk GmbH\nVielen Dank für die schöne Milano-Küche! Nach ersten Versuchen bei anderen Küchenstudios hat uns der Entwurf von Tilman Baldzer gleich viel besser gefallen, weil er viel einfallsreicher war. Ein Lob auch an die Mitarbeiter/innen im Studio, die uns zu Oberflächen usw. beraten haben sowie an die Monteure, die in mehreren Tagen die Küche perfekt installiert haben und super zuvorkommend und freundlich waren. Wir haben uns einfach gut aufgehoben und betreut gefühlt, was beim Hausneubau von unschätzbarem Wert ist.\nTolles Planungsteam, das langen Atem mit uns bewiesen hat und auch heute noch (4 Jahre später) sofort zur Stelle ist, wenn irgendeine Kleinigkeit zu beheben ist.\n4. Februar 2022Zuletzt bearbeitet:4. Februar 2022\nKommentar von MILANO küchen.werk GmbH:\nHerzlichen Dank für das schöne Feedback - unser Service und die Verbindung endet nicht. Wir wünschen weiterhin viel Freude!\nSehr modern und exklusiv dazu ein tolles Ambiente wo man sich wohl fühlt! Super kompetente Beratung mit vielen Vorschlägen. Der Showroom hat viele exklusive und verschiedene Küchen wo man viele Ideen findet. Es wurde voll und ganz auf unsere Wünsche geachtet und auch unsere Preisvorstellung wurde beachtet und nicht überschritten. Wir sind super zufrieden mit dem Milano-Team und können es nur weiter empfehlen!\nWir freuen uns, dass Sie mit der Beratung und dem Ergebnis Ihrer Küche glücklich und zufrieden sind und wünschen Ihnen weiterhin viele schöne Stunden in diesem neuen "Lieblingsraum". Herzliche Grüße vom Team MILANO küchen.werk\nDurch die umfassende und geduldige Planung und Beratung durch Herrn Balzer haben wir eine wunderschöne neue Küche bekommen. Wir fühlten uns vom Beginn bis zum Ende des Projektes immer verstanden und bestens betreut. Wir bedanken uns herzlich für die tolle Arbeit des gesamten Teams und wünschen weiterhin viel Erfolg.\nHallo Frau Berger, wir freuen uns sehr, dass Sie sich rundum verstanden und bestens betreut fühlten und wünschen Ihnen weiterhin viel Freude beim Kochen in Ihrer Traumküche. Herzliche Grüße vom Team MILANO küchen.werk\nDas Studio glänzte durch kompetente Beratung in wunderschöner Loft-Umgebung, professionelle und hochwertige Ausführung, pünktlich und zuverlässig. Vielen Dank.\nWir danke und grüßen recht herzlich ! Das ganze Team vom MILANO küchen.werk\nGut Beratung und tolle Küche! Trotz schlauchartigem Schnitt meiner Küche konnte durch die gute Beratung alles ausgeglichen werden und ich habe eine Rundum-Wohlfühlküche, die mir viel Spass macht! Danke an das Team Milano!\nDanke, Frau Heemann ! Vielleicht sehen wir uns wieder bei einem Kochevent in unserem Haus. Herzliche Grüße\nNach einem Wasserschaden musste eine neue Küche her. Bei Milano sind wir schnell fündig und sehr kompetent beraten worden. Beim Vorort-Termin mit Herrn Balzer hat man noch einmal alles ausgemessen, digital visualisiert und die verschiedenen Möglichkeiten durchgespielt. Die Kommunikation war immer freundlich und kompetent. Der Einbau verlief schnell und reibungslos. Danke an das ganze Team!\nLieber Houzz-Nutzer, es freut uns sehr, dass Beratung, Planung, Aufbau der Küche reibungslos geklappt haben und Ihnen nach Ihrem Wasserschaden schnell geholfen wurde. Viel Freude beim Kochen ! Das Team vom MILANO küchen.werk\nAuf der Suche nach einer Einbauküche bekamen wir die Empfehlung für das MILANO küchen.werk. Bereits der riesige Showroom löste bei uns Begeisterung aus, tolles Design, hochwertige moderne Küchen, inspirierende Ideen fürs Innendesign und eine großartige freundliche und kompetente Beratung. Wir haben unsere Traumküche gefunden. Danke und macht weiter so! Bestes Küchenstudio in Dresden!\nLiebe Kundin, lieber Kunde, wir freuen uns sehr, dass Sie bei uns Ihre Traumküche gefunden haben und nun über die Feiertage genießen können. Herzlichen Dank für Ihre Rückmeldung und viele Grüße vom Team des MILANO küchen.werk.\ncould never be more satisfied! excellent advice, friendly yet professional ! We were not forced or rushed to make decisions, Mr Tilman Balzer was very patience, despite our often changes ! We are extremely happy!! quality kitchen material and superb superb service - and wide selections. I can and will only recommend Milano kitchen studio !\nDear clients, thank you so much for your positive valuation. We are really glad to hear how happy you have been with our service. Best regards from the whole team of MILANO küchen.werk\nAnnett Böhme Böhme\nAngefangen mit einer Idee und trotz vieler Kilometer die dazwischen liegen, war die Beratung und Planung durch Herrn Baldzer kompetent und individuell. Es war perfekt bis hin zur Lieferung, Montage und Fertigstellung. Es hat Spaß gemacht und diese Küche ist unser absoluter Lieblingsort, wenn wir uns in unserem Haus befinden (welches zur Zeit nicht unser Hauptwohnsitz ist). Wir haben für uns persönlich die Entscheidung getroffen, die Elektroinstallation von einer Elektrofirma vor Ort durchführen zu lassen. Heute würden wir diese Wahl nicht mehr treffen und ein Dankeschön an René Haentzschel und Frank Gonzalez Fresnedo für den souveränen Umgang mit der Situation : )\nLiebe Frau Böhme, herzlichen Dank für Ihre positive Bewertung. Unser Slogan "Wir schaffen Lieblingsräume" hat sich bei Ihnen bestätigt und das freut das gesamte Team sehr. Wir wünschen Ihnen viele wunderbare Momente an Ihrem Lieblingsort. Liebe Grüße vom Team des MILANO küchen.werk\nMit einem anstehenden Umzug stand auch die Entscheidung einer neuen Küche auf unserer Agenda. Schnell wurde uns klar, dass das Milano Küchenwerk unser Partner wird. Wir haben uns sofort willkommen und total wohlgefühlt. Die Beratung von Herrn Baldzer hat perfekt zu uns gepasst. Er ist immer auf unsere Wünsche eingegangen und hat sie mit unseren Vorstellungen zu einem für uns runden Gesamtkonzept entwickelt. Jederzeit weiterzuempfehlen!\nWir freuen uns, dass Sie mit dem entwickelten "rundem Gesamtkonzept" und der Beratung glücklich waren und danken recht herzlich für Ihre Weiterempfehlung. Herzliche Grüße vom Team des MILANO küchen.werk\nWir können das MILANO küchen.werk wärmstens empfehlen. Wir wurden hervorragend und mit ausreichend Zeit und Geduld beraten, haben ein tolles Angebot erhalten und das Projekt wurde genau nach unseren Wünschen umgesetzt. Auf jeden Fall 5 Sterne!\n20. Juli 2020Zuletzt bearbeitet:20. Juli 2020\nwir freuen uns sehr über Ihre 5 Sterne und wünschen Ihnen immer viel Freude mit der Küche aus unserem Haus. Herzliche Grüße vom Team MILANO küchen.studio\nNach unserem ersten unverbindlichen Besuch im Küchenstudio Milano waren wir uns sicher hier unseren Küchenplaner gefunden zu haben. In mehreren ausführlichen Beratungsgesprächen hat Herr Baldzer mit uns das Konzept für unsere Traumküche erarbeitet. Im Rahmen von Kochseminaren und Vorführungen sind wir über die Funktionen unserer Elektrogeräte bestens informiert worden. Das Küchenaufmaß und der Einbau hat trotz der großen Distanz – die Küche wurde in Hessen nähe Frankfurt aufgestellt – sehr gut geklappt. Ein großes Dankeschön an das gesamte Team von Milano. Wir sind sehr zufrieden und können Milano uneingeschränkt weiterempfehlen.\nLiebe Familie Oestreicher,\nwir freuen uns, dass Sie uns dieses schöne Feedback geschickt haben und Sie die Kochevents in unserem Industriedenkmal in guter Erinnerung behalten werden. Alles Gute und herzliche Grüße vom Team MILANO küchen.werk\nBei der Planung meiner neuen Eigentumswohnung war Milano die Firma welche am meisten herausragte!! Von Beratung und Planung bis hin zur Ausführung war der Service hochprofessionell, zuverlässig und erstklassig! Ich kann Milano nur empfehlen und werde meine Küchen nur noch über Milano planen. Besonders beeindruckt hat mich die detaillierte Qualitätskontrolle. Die Küchenbauer haben mich auf kleine Mängel (nicht sichtbar) hingewiesen und proaktiv die Nacharbeit geplant. Auch gab es am Tag nach Fertigstellung ein Service-Anruf des Planungsteam um sicherzustellen, dass alles perfekt ist. Wow! Das bekommt man heute nur noch selten. Ein riesiges Dankeschön an Milano und speziell an Frau Pirker. Tip Top!\nwir freuen uns sehr, dass von der Planung bis zum Einbau Sie rundum mit uns zufrieden waren. Viel Freude mit Ihrer Küche wünscht Ihnen das gesamte Team des MILANO küchen.werks.\nWir waren mit dem gesamten Milano-Team sehr zufrieden. Dank der ausgezeichneten und durchdachten Planung und Beratung von Herrn Baldzer haben wir unsere Traumküche verwirklicht. Auch mit den hochwertigen Einbaugeräten blieben wir in unserem Budget. Der Einbau durch das Milano-Küchenteam erfolgte pünktlich, sorgsam und problemlos. Der ganze Service war ausgesprochen kundenfreundlich und kompetent.\nwir freuen uns sehr über Ihr positives Feed-Back und wünschen Ihnen weiterhin viel Spaß mit Ihrer Traumküche.\nIhr Team des MILANO küchen.werks\nSehr kompetente und qualitativ hochwertige Arbeit! Mit der Küche hat man sehr viel Spaß und ist zufrieden ;) Weiterempfehlung kann man hier definitiv aussprechen!\nWir waren vom Projektieren bis zum Aufbau der Leicht-Küche sehr zufrieden. Wir wurden kompetent beraten und fühlten uns sehr gut aufgehoben. Besonders hervorzuheben ist die Pünktlichkeit der Lieferung und die fachgerechte Montage der Küche. Wir werden jederzeit das Küchenstudio weiterempfehlen.\nSchönes Küchenstudio, kompetente Beratung, problemlose Abwicklung. Langjähriger Service. Ich habe gerade meine zweite Küche dort gekauft.\nProfessionelle Beratung, super Service, ganz tolle Küchen. Das Küchenstudio grenzt sich schon durch die gewählten Räumlichkeiten und die Art der Ausstellung von anderen Anbietern ab. Hier gibt es absolut nichts auszusetzen!\nsehr professionelles Küchenstudio, tolles Ambiente, die Beratung ist exklusiv und im Verglich mit anderen Küchenstudios ein sehr gutes Preis-Leistungsverhältnis, Selbst für den schmalen Geldbeutel gibt es Top-Angebote, die Kochkurse sind inhaltlich und geschmacklich sehr empfehlenswert.\nWerner-Hartmann-Str. 1 – 3\nElstra Küchenplanung · Reinhardtsgrimma Küchenplanung · Königstein Küchenplanung · Obercunnersdorf Küchenplanung · Kurort Gohrisch Küchenplanung · Albertstadt Küchenplanung · Stadt Wehlen Küchenplanung · Oberlichtenau Küchenplanung · Liebstadt Küchenplanung · Porschdorf Küchenplanung\nGarten- & Landschaftsbau in Dresden · Pflasterarbeiten in Dresden · Poolbau in Dresden · Rasen & Gartenbewässerung in Dresden · Zäune & Tore in Dresden · Dachdecker in Dresden · Fassadenbauer in Dresden · Tür- & Fensterbauer in Dresden · Garagentore in Dresden · Home Staging in Dresden


Travis Barker spricht erstmals über die Beziehung mit Kourtney Kardashian | Besserstars.com\nHome » Stars » Travis Barker spricht erstmals über die Beziehung mit Kourtney Kardashian\nTravis Barker spricht erstmals über die Beziehung mit Kourtney Kardashian\nSo läuft's mit Reality-TV-Star Kourtney Kardashian\nErst köchelte es wie verrückt in der Gerüchteküche, seit Mitte Februar herrscht endlich Gewissheit: Kourtney Kardashian (41) und Travis Barker (45) gehen ganz offiziell Hand in Hand durchs Leben. Der Reality-TV-Star und der Frontmann der Rockband „Blink-182“ machten ihre Liebe mit einem Instagram-Post offiziell. Doch öffentlich über ihre Liebe gesprochen haben die augenscheinlich ungleichen Partner noch nicht. Bis jetzt! Im Interview mit Drew Barrymore (46) gewährt Travis einen Einblick in sein Liebesleben. Warum der „Blink-182“-Megahit „I Miss You“ genau zu dem passt, was sich der 45-Jährige für seine Beziehung wünscht, verrät der Sänger im Video.\nPatchwork-Alarm bei Travis und Kourtney\nWer hätte gedacht, dass die älteste der Kardashian-Schwestern auf Tattoo-Rocker steht? Auch wenn der vermeintliche Bad Boy und die Reality-TV-Schönheit auf den ersten Blick nicht zusammenpassen, scheinen sie überglücklich miteinander zu sein. Das beweist ihr süßes Pärchen-Pic der anderen Art.\nAußerdem legen beide in ihrem Leben großen Wert auf Familie. Travis teilt sich das Sorgerecht für Tochter Alabama (15) und Sohn Landon (17) mit seiner Ex-Frau Shanna Moakler, mit der er von 2004 bis 2008 liiert war. Kourtney hingegen bringt Mason Dash (11), Reign Aston (6) und Tochter Penelope Scotland (8) mit in die Beziehung und macht damit den Patchwork-Traum perfekt. Dabei wird deutlich, dass Kourtney und Travis sich offensichtlich auch ihr Faible für ausgefallene Kindernamen teilen.\nKourtney Kardashian und Travis Barker beim Turteln\nOb sie ihre Kinder bereits einander vorgestellt haben, ist noch nicht bekannt. Denn bisher halten sich die Frischverliebtenin der Öffentlichkeit eher bedeckt. Doch vielleicht ist Travis’ Interview mit Schauspielerin und Showmasterin Drew Barrymore nun der Anfang öffentlicher Gefühlsbekundungen. Die Fans würden sich sicher freuen!


Sommerkomplettr�der: Unbedingt individuelle Angebote beim H�ndler anfragen\nWer g�nstige Sommerreifen sucht und zudem neue Alufelgen ben�tigt, kauft Sommerkomplettr�der. So sind Reifen und Felgen n�mlich viel g�nstiger.\nF�r die meisten Autofahrer ist vollkommen klar, dass sie w�hrend der warmen Jahreszeit mit sch�nen Felgen unterwegs sein m�chten. Kein Wunder, schlie�lich sind die Sommerreifen einfach l�nger montiert. Doch zuvor gilt es erst einmal sch�ne Alufelgen zu kaufen, mit denen man den Look seines Fahrzeugs sichtlich verbessern kann - denn die meisten Autos werden von den Herstellern nicht gerade mit den sch�nsten Felgen ausgestattet.\nIn den meisten F�llen steht f�r die Autofahrer fest, dass die Felgen nicht nur sch�ner, sondern vor allem auch gr��er werden sollen. Dies hat nat�rlich zur Folge, dass auch neue Reifen ben�tigt werden, da die alten Reifen nicht mehr passen. In solch einem Fall bietet es sich an, Sommerkomplettr�der zu kaufen. Schlie�lich bieten diese einem die M�glichkeit, beim Reifenkauf richtig Geld zu sparen.\nRein theoretisch kann man sich Reifen und Felgen auch einzeln kaufen und sich somit das ideale Rad zusammenstellen. Allerdings ist auch klar, dass diese Form des R�derkaufs schlichtweg teuer ist. So gut wie alle Reifenh�ndler bieten Komplettr�der an, so dass man beim Kauf von einem Preisvorteil profitieren kann. Wenn man Sommerreifen und Alufelgen zusammen kauft, macht man zumeist ein sehr gutes Gesch�ft.\nDaher kann allen interessierten Autofahrern nur dazu geraten werden, sich nicht zu sehr auf die Auswahl einzelner Felgen und Reifen zu versteifen. Stattdessen sollte man die Scheuklappen ablegen und sich ruhig nach Sommerkomplettr�dern informieren. Wie bereits erw�hnt wurde, haben die meisten Reifenh�ndler entsprechende Angebote im Programm. Dies gilt insbesondere f�r die Online-Reifenh�ndler. Sofern man Sommerkomplettr�der kaufen m�chte, kann man hier so richtig punkten: Die Online-Reifenshops gelten ohnehin als sehr g�nstig - viele Autofahrer schrecken vor dem Onlinekauf nur zur�ck, weil sie die Reifen noch montieren lassen m�ssen und sich viele Werkst�tten diesen Service teuer bezahlen lassen.\nDoch wenn man Komplettr�der kauft, stellt sich die Frage nach der Montage nicht, schlie�lich wurden die Sommerreifen bereits auf die Felgen aufgezogen. Somit kann man sich diese g�nstig schicken lassen und bares Geld sparen. Im �brigen kann es sich auch lohnen, sich individuelle Angebote f�r Komplettr�der machen zu lassen: Auch wenn die gew�nschte Kombination nicht im Set angeboten wird, kann man einmal nachfragen: Unter Umst�nden sind die Reifenh�ndler dazu bereit, einen Sonderpreis f�r individuell zusammengestellte Sommerkomplettr�der zu machen.


Märchengarten Archive - Seite 2 von 2 - Bücher die Freude bereiten\nVeröffentlicht am 28. April 2017 6. Juli 2017\nEs bleibt märchenhaft. Diese schönen Schwimmkugeln sind mir natürlich bei der Suche nach Teichrosen nicht entgangen. Und für wahr, hier gibt es für wenig Geld einen schönen Hingucker. Ob silbern oder durchsichtig sie werden den Blicken der Besucher sicherlich nicht entgehen.\nTeelichtschalen und Schwimmkugeln auf dem Elfenbrunnen\nTischdekoration Miniteich Froschkönig mit Schwimmkugeln und Schwimmschalen\nWie findest du die Schwimmkugel?\nVeröffentlicht am 26. April 2017 6. Juli 2017\nWas gibt es neues im Märchengarten\nJa wem sehen wir denn hier? Däumelinchen ist im Märchengarten der Märchenerzählerin eingeflogen. Sogleich haben die beiden einen blumigen Platz bekommen und begrüßen die Märchen und Bücherfreunde im Eingangsbereich. Gleich neben Daumesdick kannst du sie sehen.\nVeröffentlicht am 25. April 2017 6. Juli 2017\nDer neue Märchenbewohner ist da. Sogleich hat er einen passenden Platz im Märchenteil gefunden und nun schlummert Daumesdick im Märchengarten. Ist er nicht süß?\nBlick in den Märchengarten\nHier kannst du schon einmal schauen, was alles im Märchengarten passiert ist. Doch noch ist viel Arbeit, bis er vorzeigbar ist.\nDer Märchengarten der Märchenerzählerin\nVeröffentlicht am 8. April 2017 6. Juli 2017\nWasser ist immer ein beruhigender Ruheort. So haben wir in unserem Märchengarten auch Springbrunnen eingebunden.\nOb Elfenwelt, Märchenfiguren oder die Sagenfiguren meiner Heimat sollen die Blickpunkte sein.\nIch selber befinde das Wasser immer etwas Beruhigendes hat. Ich sitze gern am Elfenbrunnen und schaue, zum Relaxen, den Fischen zu. Dazu gibt die Natur immer ein schönes Konzert, wenn die Greifvögel kreisen, Bienen summen und die Vögel zwitschern. Und wie es auf dem Lande sein muss, höre ich gerne die Hähne krähen. Sie hauchen den Dörfern das Leben ein.\nGoldfische und Schleierschwänze\nSpringbrunnen Seenixe – Tochter des Wassermannes\nMit Froschkönig und gestiefelter Karter\nBeim gestiefelten Kater\nSpringbrunnen – Blumentopf Elfenhaus mit Wasserquelle\nAm Abend kehren die Elfen nach Hause und du kannst es sehen, wenn die kleinen Fenster leuchten.\n(Bildquelle: Anita Heiden Text: Anita Heiden)\nVeröffentlicht am 7. April 2017 2. August 2017\nDer Elfenbrunnen im Märchengarten\nElfen oder auch in der Mundart Alben genannt. Sie zählen zu der Sagenwelt meiner Heimat der Oberlausitz. Der Elfenbrunnen im Märchengarten zeigt es, denn Elfen und Wassermann stellen sich vor.\nSo kommen in Meinen Büchern diese lieblichen Wesen immer wieder vor. Es gibt von ihnen die verschiedensten Arten. Waldelfen und Wiesenelfen seien hier nur einmal genannt. Doch ab und an möchte ich sie hier einmal vorstellen. Elfen sind kleine liebliche Wesen, die den Baumwächtern helfen, um das Gleichgewicht der Natur aufrecht zu halten.\n»Wir sollten immer daran denken, dass die Natur das wichtigste Gut ist, was Mensch und Tier besitzt, um leben zu können.«\nSo sorgen auch die Elfen, dass die Tiere behutsam leben können. Sie lassen Pilze wachsen und Beeren reifen. Im Dunkeln zünden die Nachtelfen kleine Laternen an und fliegen durch die Wälder und über die Wiesen. Im Gegensatz zu den Irrlichtern leuchten sie verirrten Menschen den Weg, damit sie unversehrt aus dem Wald finden. Auch du hast bestimmt schon einmal eine kleine Nachtelfe fliegen gesehen. Nein? So sind doch die kleinen Glühwürmchen Waldelfen. Stell es dir vor und lasse deiner Fantasie freien Lauf.\nGoldfische und Schleierschwänz\nElfe mit Spatz\nDer Wassermann mit Frosch\nElfe mit Frosch\nElfe mit Schildkröte\nFrühling im Märchengarten 9. April 2019


Telefonsex mit Zehen lecken und Füße lutschen\nMeistens haben sich die Girls von der Sexline Zehen lecken noch schnell frisch die Fußnägel lackiert, bevor sie online gehen. Schließlich wollen sie ja extra für dich gepflegt sein! Aber Fußdeo kommt für sie natürlich nicht in Frage, weil du ja schließlich mit deiner Zunge ihre nackten Füße entlang gleiten sollst. Deshalb musst du dich wohl mit dem natürlichen Fußduft bescheiden, der die ganz intensiv in die Nase steigt, wenn du die süßen Zehen hingebungsvoll alle einzeln in deinen Mund saugst und daran herum lutschst. Aber nicht so schnell - mach lieber langsam, genieße alles in aller Ruhe!\nfür Zehen lecken am Telefon wähle:\n09005 - 22 55 60 43\n0906 - 60 55 44 Pin: 015\nZehen lecken am Telefon\nSchau dir die schönen Füße an. Vielleicht hat ihnen eine Freundin sogar vorher noch eine Pediküre gegeben? Das ist doch eine geile Vorstellung - zwei Frauen, und die eine hat ihre nackten Füße im Schoß der anderen ... Aber jetzt wird es Zeit, dass du dir die Füße vornimmst! Duftende, weiche Haut, süße Zehen und ein strahlendes Rot auf den Nägeln. Solche Frauenfüße sind doch viel zu schade, um in Nylonstrümpfe und Schuhe verpackt zu werden. Nein, solche Füße musst du nackt genießen, erst dann ist es wahrer Fußfetisch. Das beginnt mit einer Verwöhnmassage. Sanft die Sohle und den Spann massieren, bis sie vor Wonne stöhnt, dann ein bisschen mit der Zunge über den Fuß lecken, und über die Zehen. Die wahre Ekstase beginnt für euch beide aber erst, wenn du ihnen die Zehen lecken und lutschen magst. Vergiss dabei nicht die Zwischenräume zwischen den Zehen; da sind die meisten Girls besonders empfindlich.\nDu stehst darauf den Girls die Zehen zu lecken?\nTelefonsex.net bietet eine riesige Auswahl an unterschiedlichen Telefonsex Nummern. Besuche auch die folgenden Anzeigen, wenn du noch weitere Lines wie den Telefonsex Zehen lecken ausprobieren möchtest.