Wednesday, December 18th 2002, 12:21pm
Wednesday, December 18th 2002, 1:26pm
Wednesday, December 18th 2002, 6:19pm
sehr langweilig.
Quoted
Original von sebi
WIE langweilig muss einem sein, damit man freiwillig ein scheme-programm schreibt ? <unverständliches kopfgeschüttel>
Wednesday, December 18th 2002, 8:25pm
(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)
Wednesday, December 18th 2002, 8:31pm
Hier steht's ganz genau:
Original von AnyKey
(define x '((r s t) h (c d e) (v m n) (a g u) x))
was bedeutet denn das ' da vor der klammer?
Wednesday, December 18th 2002, 8:49pm
Date of registration: Dec 11th 2001
Location: Hämelerwald
Occupation: Wissenschaftlicher Mitarbeiter (Forschungszentrum L3S, TU Braunschweig)
Wednesday, December 18th 2002, 8:49pm
Ist definitiv Gewöhnungssache.
Original von smeyer82
Also ich finde Scheme schrecklich.
Es gibt einfach Dinge, für die Scheme sehr gut geeignet ist.
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
Finding the right tool for the right purpose - Aufgabe des Informatikers.
Wednesday, December 18th 2002, 11:41pm
Original von Joachim
Der letzte Satz ist IMHO der wichtigste. Man kann eben keine Alternativen abwägen, wenn man keine kennt.
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
Thursday, December 19th 2002, 7:38pm
|
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)))
|
Friday, December 20th 2002, 10:44am
smile am ende der ausgabe ist natürlich eine 8 gefolgt von einem )
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
Friday, December 20th 2002, 3:10pm
|
|
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)))
|
Friday, December 20th 2002, 4:32pm
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
Friday, December 20th 2002, 4:51pm
um es unleserlich zu machen... 
