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?
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?
Date of registration: Dec 11th 2001
Location: Hämelerwald
Occupation: Wissenschaftlicher Mitarbeiter (Forschungszentrum L3S, TU Braunschweig)
Ist definitiv Gewöhnungssache.
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]?
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))) |
Date of registration: Oct 14th 2002
Location: Erschaffen aus Glut und Feuer, stärker als die Grundfesten der Erde
Occupation: CvD ;)
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))) |
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