Quoted
(define x '((r s t) h (c d e) (v m n) (a g u) x))
was bedeutet denn das ' da vor der klammer?
Guru
Date of registration: Dec 11th 2001
Location: Hämelerwald
Occupation: Wissenschaftlicher Mitarbeiter (Forschungszentrum L3S, TU Braunschweig)
Hier steht's ganz genau:Quoted
Original von AnyKey
Quoted
(define x '((r s t) h (c d e) (v m n) (a g u) x))
was bedeutet denn das ' da vor der klammer?
Guru
Date of registration: Dec 11th 2001
Location: Hämelerwald
Occupation: Wissenschaftlicher Mitarbeiter (Forschungszentrum L3S, TU Braunschweig)
Ist definitiv Gewöhnungssache. Es gibt einfach Dinge, für die Scheme sehr gut geeignet ist.Quoted
Original von smeyer82
Also ich finde Scheme schrecklich.
Quoted
Original von PhilRM
Wichtig ist bei Scheme vor allem, sich vor Augen zu führen, dass diese Sprache nicht mit Sprache á la C, Java und Pascal konkurriert.
Mit Scheme (bzw. LISP) löste bzw. löst man einfach ganz andere Probleme - dafür (und für Rekursionen der dritten Art ) ein Gefühl zu bekommen macht den Unterschied.
Finding the right tool for the right purpose - Aufgabe des Informatikers.
Quoted
Original von Joachim
Der letzte Satz ist IMHO der wichtigste. Man kann eben keine Alternativen abwägen, wenn man keine kennt.
Quoted
Original von Joachim
[1] Was ist eigentlich Rekursion[1]?
Erfahrener Schreiberling
Date of registration: Oct 9th 2002
Location: da drüben, gleich dort.
Occupation: Warum? Hmm, weil ich sonst nix mit meiner Zeit anzufangen weiß :D
Source code |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
(define W '(define display newline begin quote list car cdr cond cons x r s t h c d e v m n a g u)) (define (son_schmarn x) (define (gib_mich_liste l n) (if (= n 0) '() (cons (car l) (gib_mich_liste (cdr l) (- n 1))))) (define (gib_mich_rest l n) (if (= n 0) l (gib_mich_rest (cdr l) (- n 1)))) (define (nu_aber_hurtig n l) (if (= n 1) (car l) (nu_aber_hurtig (- n 1) (cdr l)))) (cond ((null? x) '()) ((= (car x) 0) (cons (son_schmarn (gib_mich_liste (cddr x) (cadr x))) (son_schmarn (gib_mich_rest (cddr x) (cadr x))))) (else (cons (nu_aber_hurtig (car x) W) (son_schmarn (cdr x)))))) (define (mach_ma_liste_draus n) (if (< n 93) (list n) (let ((rest (modulo n 93))) (append (mach_ma_liste_draus (/ (- n rest) 93)) (list rest))))) (define das_war_mal_n_prog_von_vier 24749412886278061041832496463636989635201700388871401143867083393102858761704648472246211451697305318909853488555956298235357517768743842132452549451632411549009343985109814906142548896445991611185211996364175878472252979393284997404918393529536444834958476635328949678434222300774133837595850071037129020311778083860390105863937276125038998672647806594792184100406915155630295602629724238) (eval (son_schmarn (mach_ma_liste_draus das_war_mal_n_prog_von_vier))) |
Trainee
Date of registration: Oct 14th 2002
Location: Erschaffen aus Glut und Feuer, stärker als die Grundfesten der Erde
Occupation: CvD ;)
Erfahrener Schreiberling
Date of registration: Oct 9th 2002
Location: da drüben, gleich dort.
Occupation: Warum? Hmm, weil ich sonst nix mit meiner Zeit anzufangen weiß :D
Source code |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
(define W '(define display newline begin quote list car cdr cond cons x r s t h c d e v m n a g u)) (define (son_schmarn x) (define (gib_mich_liste l n) (if (= n 0) '() (cons (car l) (gib_mich_liste (cdr l) (- n 1))))) (define (gib_mich_rest l n) (if (= n 0) l (gib_mich_rest (cdr l) (- n 1)))) (define (nu_aber_hurtig n l) (if (= n 1) (car l) (nu_aber_hurtig (- n 1) (cdr l)))) (cond ((null? x) '()) ((= (car x) 0) (cons (son_schmarn (gib_mich_liste (cddr x) (cadr x))) (son_schmarn (gib_mich_rest (cddr x) (cadr x))))) (else (cons (nu_aber_hurtig (car x) W) (son_schmarn (cdr x)))))) (define (mach_ma_liste_draus n) (if (< n 93) (list n) (let ((rest (modulo n 93))) (append (mach_ma_liste_draus (/ (- n rest) 93)) (list rest))))) (define (^ b n) (define (_ b cn a) (cond ((= cn 0) 1) ((= cn 1) (* a b)) ((even? cn) (_ (* b b) (/ cn 2) a)) (else (_ (* b b) (/ (- cn 1) 2) (* a b))))) (_ b n 1)) (define das_war_mal_n_prog_von_vier (+ (* 247494128862780610418324964636369896352017003 (^ 10 344)) (* 8887140114386708339310285876170464847224621145169730531890 (^ 10 286)) (* 9853488555956298235357517768743842132452549451632411549009 (^ 10 228)) (* 3439851098149061425488964459916111852119963641758784722529 (^ 10 170)) (* 7939328499740491839352953644483495847663532894967843422230 (^ 10 112)) (* 0774133837595850071037129020311778083860390105863937276125 (^ 10 54)) (* 038998672647806594792184100406915155630295602629724238))) (eval (son_schmarn (mach_ma_liste_draus das_war_mal_n_prog_von_vier))) |
Erfahrener Schreiberling
Date of registration: Oct 9th 2002
Location: da drüben, gleich dort.
Occupation: Warum? Hmm, weil ich sonst nix mit meiner Zeit anzufangen weiß :D