Sie sind nicht angemeldet.

Arne

ThI

  • »Arne« ist männlich
  • »Arne« ist der Autor dieses Themas

Beiträge: 1 798

Registrierungsdatum: 07.10.2002

Wohnort: Hannover :)

Beruf: Lecturer ThI

1

18.12.2002, 12:21

lala mir war gerade langweilig

(define x '((r s t) h (c d e) (v m n) (a g u) x))
(define c (list (cadar x) (caaddr x) (cadr x) (cadr (cdaddr x)) (cadar (cdddr x)) (cadr (cdaddr x))))
(define d (list (cadar x) (caddar (cddddr x)) (cadr (cddddr x))))
(display c)
(newline)
(display d)
"NP - The class of dashed hopes and idle dreams." Complexity Zoo

KreiS

Senior Schreiberling

  • »KreiS« ist männlich

Beiträge: 701

Registrierungsdatum: 17.12.2001

Wohnort: Hannover

Beruf: moep

2

18.12.2002, 13:26

was kommt raus? ?(
kaneda spring <-> ks <-> KreiS
"surrender is an option ...time to change everything" (ks '04)

Dakota-Indianer(Weisheit),"Wenn Du entdeckst, dass Du ein totes Pferd reitest, steig ab"

drNick

Praktikant

  • »drNick« ist männlich

Beiträge: 26

Registrierungsdatum: 17.08.2002

Wohnort: Hannover [30455]

3

18.12.2002, 15:19

wo Du recht hast...

sebi

Junior Schreiberling

  • »sebi« ist männlich

Beiträge: 153

Registrierungsdatum: 10.12.2001

Wohnort: Hannover, Erde

Beruf: lebenskünstler

4

18.12.2002, 17:51

WIE langweilig muss einem sein, damit man freiwillig ein scheme-programm schreibt ? <unverständliches kopfgeschüttel> :D

Diktator

Senior Schreiberling

  • »Diktator« ist männlich

Beiträge: 605

Registrierungsdatum: 12.02.2002

Wohnort: Region Hannover

Beruf: Gartenbau

5

18.12.2002, 18:19

Zitat

Original von sebi
WIE langweilig muss einem sein, damit man freiwillig ein scheme-programm schreibt ? <unverständliches kopfgeschüttel> :D
sehr langweilig.
Diktator
Holzhacken ist deshalb so beliebt, weil man bei dieser Tätigkeit den Erfolg sofort sieht. - Albert Einstein

smeyer82

Alter Hase

  • »smeyer82« ist männlich

Beiträge: 372

Registrierungsdatum: 14.10.2002

Wohnort: Ex-Kanzlerstadt Hannover

6

18.12.2002, 19:33

Nett.

Ist aber schon ein bischen krank, oder? :rolleyes:
"Sir! We are surrounded!" - "Excellent! We can attack in any direction!"

AnyKey

Erfahrener Schreiberling

Beiträge: 451

Registrierungsdatum: 11.12.2001

Wohnort: H-Town

Beruf: Student

7

18.12.2002, 19:56

Zitat

(define x '((r s t) h (c d e) (v m n) (a g u) x))

was bedeutet denn das ' da vor der klammer?

"Der Mensch braucht Schubladen." -- Any Key

smeyer82

Alter Hase

  • »smeyer82« ist männlich

Beiträge: 372

Registrierungsdatum: 14.10.2002

Wohnort: Ex-Kanzlerstadt Hannover

8

18.12.2002, 20:25

Zitat

(define x '((r s t) h (c d e) (v m n) (a g u) x))

was bedeutet denn das ' da vor der klammer?


Das bedeutet, dass die der Inhalt der Klammern nicht als Klammern und Variablen sondern als Symbole angesehen werden.
Sonst würdest Du nämlich eine Fehlermeldung bekommen, dass z.B. r, s und t nicht definiert sind.

Toll wie ich das als Ersi weiß, oder 8)
"Sir! We are surrounded!" - "Excellent! We can attack in any direction!"

  • »Joachim« ist männlich

Beiträge: 2 863

Registrierungsdatum: 11.12.2001

Wohnort: Hämelerwald

Beruf: Wissenschaftlicher Mitarbeiter (Forschungszentrum L3S, TU Braunschweig)

9

18.12.2002, 20:31

Zitat

Original von AnyKey

Zitat

(define x '((r s t) h (c d e) (v m n) (a g u) x))

was bedeutet denn das ' da vor der klammer?
Hier steht's ganz genau:

http://mitpress.mit.edu/sicp/full-text/b…tml#%_sec_2.3.1

BTW: Ich mag Scheme ...
The purpose of computing is insight, not numbers.
Richard Hamming, 1962

smeyer82

Alter Hase

  • »smeyer82« ist männlich

Beiträge: 372

Registrierungsdatum: 14.10.2002

Wohnort: Ex-Kanzlerstadt Hannover

10

18.12.2002, 20:35

Zitat

Original von Joachim
BTW: Ich mag Scheme ...


Da bist Du aber schon eine Randgruppe :P

Also ich finde Scheme schrecklich. :rolleyes:
"Sir! We are surrounded!" - "Excellent! We can attack in any direction!"

Shadow

... mit bunten Sternchen und so

  • »Shadow« ist männlich

Beiträge: 838

Registrierungsdatum: 21.12.2001

Wohnort: Hamburg

11

18.12.2002, 20:40

Ich find Scheme auch gut!!
So schnell hab ich noch nie ne Programmiersprache gelernt. Wenn man den gedanklichen Sprung von imerativ nach funktional gemacht hat programmiert sich Scheme einfach, schnell und intuitiv. Mann muss bloß aufpassen, nicht in Klammerbergen zu ersticken, das wird schnell unübersichtlich...

I like scheme!

'(Shadow)
"Man hält die Erzeugung von Information für ein Zeichen von Intelligenz, während in Wirklichkeit das Gegenteil richtig ist: Die Reduktion, die Auswahl der Information ist die viel höhere Leistung."
-- Heinz Zemanek

smeyer82

Alter Hase

  • »smeyer82« ist männlich

Beiträge: 372

Registrierungsdatum: 14.10.2002

Wohnort: Ex-Kanzlerstadt Hannover

12

18.12.2002, 20:49

Ok, dann gibt es halt mehrere Leute, die Scheme gut finden. Dass hätte ich jetzt nicht gedacht. :D

@Shadow:
Sicher, zur Einführung finde ich Scheme auch ganz nett. Aber es wäre sicherlich meine letzte Wahl, wenn ich was programmieren müsste (Übungsaufgaben mal weggelassen)
"Sir! We are surrounded!" - "Excellent! We can attack in any direction!"

  • »Joachim« ist männlich

Beiträge: 2 863

Registrierungsdatum: 11.12.2001

Wohnort: Hämelerwald

Beruf: Wissenschaftlicher Mitarbeiter (Forschungszentrum L3S, TU Braunschweig)

13

18.12.2002, 20:49

Zitat

Original von smeyer82
Also ich finde Scheme schrecklich. :rolleyes:
Ist definitiv Gewöhnungssache. :) Es gibt einfach Dinge, für die Scheme sehr gut geeignet ist.

Den bisher besten Kommentar zur immerwährenden Scheme-Diskussion hat IMHO Phil abgegeben. Wenn ich mal zitieren darf:

Zitat

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 :D) ein Gefühl zu bekommen macht den Unterschied. :)

Finding the right tool for the right purpose - Aufgabe des Informatikers.


Der letzte Satz ist IMHO der wichtigste. Man kann eben keine Alternativen abwägen, wenn man keine kennt.
The purpose of computing is insight, not numbers.
Richard Hamming, 1962

migu

free rider

  • »migu« ist männlich

Beiträge: 2 643

Registrierungsdatum: 11.12.2001

Wohnort: Hannover

Beruf: Developer

14

18.12.2002, 23:41

Zitat

Original von Joachim
Der letzte Satz ist IMHO der wichtigste. Man kann eben keine Alternativen abwägen, wenn man keine kennt.


*zustimm*

Und übrigens: Auch ich mag Scheme.

Besonders Probleme mit Bäumen sind in Scheme sehr elegant und einfach zu lösen. In Java z.B. wäre solches ein Alptraum.

Zitat

Original von Joachim
[1] Was ist eigentlich Rekursion[1]?


Eine sehr schöne Signatur. :D
tar: Anlegen eines leeren Archivs wird feige verweigert.

T2k

Erfahrener Schreiberling

  • »T2k« ist männlich

Beiträge: 339

Registrierungsdatum: 09.10.2002

Wohnort: da drüben, gleich dort.

Beruf: Warum? Hmm, weil ich sonst nix mit meiner Zeit anzufangen weiß :D

15

19.12.2002, 19:38

mir war auch ma langweilig :D deshalb hab ich ma vier's prog etwas umgeschrieben, vereinfacht :rolleyes: ...

Hier ist es:

Quellcode

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)))

Ihr müsst diese gigantisch kleine Zahl von hand zusammensetzen bzw die Zeilenumbrüche entfernen, da dieses Board leider welche reinmacht

viel spaß beim kopf zerbrechen...


T2k
Die zweithäufigste Todesursache eines Soldaten ist das Gewicht seines Rückentornisters ("http://olnigg.de/" Aug05/Nr120)

Arne

ThI

  • »Arne« ist männlich
  • »Arne« ist der Autor dieses Themas

Beiträge: 1 798

Registrierungsdatum: 07.10.2002

Wohnort: Hannover :)

Beruf: Lecturer ThI

16

20.12.2002, 10:44

@T2k:
define: bad syntax (zero or multiple expressions after identifier) in: (define das_war_mal_n_prog_von_vier 247494128862780610418324964636369896352017003888714011438670833931028587617046484722462114516973053189098534885559562982353575177687438421324525494516 324115490093439851098149061425488964459916111852119963641758784722529793932849974049183935295364448349584766353289496784342223007741338375958500710371 29020311778083860390105863937276125038998672647806594792184100406915155630295602629724238)

sagt mir scheme wenn ich deins ausführe und ich hab die zeilenumbrüche entfernt... ?( :rolleyes:

der letzte 8) smile am ende der ausgabe ist natürlich eine 8 gefolgt von einem )
"NP - The class of dashed hopes and idle dreams." Complexity Zoo

DocEvil

Trainee

  • »DocEvil« ist männlich

Beiträge: 109

Registrierungsdatum: 14.10.2002

Wohnort: Erschaffen aus Glut und Feuer, stärker als die Grundfesten der Erde

Beruf: CvD ;)

17

20.12.2002, 10:59

Läuft bei mir auch nicht:

cdr: expects argument of type <pair>; given ()

irgendwie verwirrend

gruß Doc
Doch weder Mensch noch Wolf noch Balrog hätte Morgoth zum Ziele geführt,
ohne den Verrat der Menschen.

---Das Silmarillion---

T2k

Erfahrener Schreiberling

  • »T2k« ist männlich

Beiträge: 339

Registrierungsdatum: 09.10.2002

Wohnort: da drüben, gleich dort.

Beruf: Warum? Hmm, weil ich sonst nix mit meiner Zeit anzufangen weiß :D

18

20.12.2002, 15:10

ich sehs doch, ihr habt zwar die zeilenumbrüche entfernt, aber da sind noch pausen zwischen, und es is nun mal ein unterschied zwischen "2 3" und "23" deshalb hab ich mir mal die freiheit genommen und noch weiter vereinfacht (hab die zahl mal etwas umgeschrieben!)

das sollte jetzt aber ohne modifikationen laufen:

Quellcode

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)))



T2k
Die zweithäufigste Todesursache eines Soldaten ist das Gewicht seines Rückentornisters ("http://olnigg.de/" Aug05/Nr120)

Arne

ThI

  • »Arne« ist männlich
  • »Arne« ist der Autor dieses Themas

Beiträge: 1 798

Registrierungsdatum: 07.10.2002

Wohnort: Hannover :)

Beruf: Lecturer ThI

19

20.12.2002, 16:32

diesmal gehts ;)
nich nen bissi viel code + umstand für 2 zeilen? meins war schon etwas aufwendig, aber deins nun 8o 8o :rolleyes:
"NP - The class of dashed hopes and idle dreams." Complexity Zoo

T2k

Erfahrener Schreiberling

  • »T2k« ist männlich

Beiträge: 339

Registrierungsdatum: 09.10.2002

Wohnort: da drüben, gleich dort.

Beruf: Warum? Hmm, weil ich sonst nix mit meiner Zeit anzufangen weiß :D

20

20.12.2002, 16:51

hehe ja aber meins kann auf jedes beliebige prog angewendet werden... :D :D :D um es unleserlich zu machen...

kannst ja ma gucken was:
(son_schmarn (mach_ma_liste_draus das_war_mal_n_prog_von_vier))
ausspuckt!!


p.s: ich kann ja auch nix dafür das dein prog nur 2 zeilen ausspuckt :rolleyes:


T2k
Die zweithäufigste Todesursache eines Soldaten ist das Gewicht seines Rückentornisters ("http://olnigg.de/" Aug05/Nr120)