You are not logged in.

Arne

ThI

  • "Arne" is male
  • "Arne" started this thread

Posts: 1,798

Date of registration: Oct 7th 2002

Location: Hannover :)

Occupation: Lecturer ThI

1

Wednesday, December 18th 2002, 12:21pm

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" is male

Posts: 701

Date of registration: Dec 17th 2001

Location: Hannover

Occupation: moep

2

Wednesday, December 18th 2002, 1:26pm

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" is male

Posts: 26

Date of registration: Aug 17th 2002

Location: Hannover [30455]

3

Wednesday, December 18th 2002, 3:19pm

wo Du recht hast...

sebi

Junior Schreiberling

  • "sebi" is male

Posts: 153

Date of registration: Dec 10th 2001

Location: Hannover, Erde

Occupation: lebenskünstler

4

Wednesday, December 18th 2002, 5:51pm

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

Diktator

Senior Schreiberling

  • "Diktator" is male

Posts: 605

Date of registration: Feb 12th 2002

Location: Region Hannover

Occupation: Gartenbau

5

Wednesday, December 18th 2002, 6:19pm

Quoted

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" is male

Posts: 372

Date of registration: Oct 14th 2002

Location: Ex-Kanzlerstadt Hannover

6

Wednesday, December 18th 2002, 7:33pm

Nett.

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

AnyKey

Erfahrener Schreiberling

Posts: 451

Date of registration: Dec 11th 2001

Location: H-Town

Occupation: Student

7

Wednesday, December 18th 2002, 7:56pm

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?

"Der Mensch braucht Schubladen." -- Any Key

smeyer82

Alter Hase

  • "smeyer82" is male

Posts: 372

Date of registration: Oct 14th 2002

Location: Ex-Kanzlerstadt Hannover

8

Wednesday, December 18th 2002, 8:25pm

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?


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" is male

Posts: 2,863

Date of registration: Dec 11th 2001

Location: Hämelerwald

Occupation: Wissenschaftlicher Mitarbeiter (Forschungszentrum L3S, TU Braunschweig)

9

Wednesday, December 18th 2002, 8:31pm

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?
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" is male

Posts: 372

Date of registration: Oct 14th 2002

Location: Ex-Kanzlerstadt Hannover

10

Wednesday, December 18th 2002, 8:35pm

Quoted

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" is male

Posts: 838

Date of registration: Dec 21st 2001

Location: Hamburg

11

Wednesday, December 18th 2002, 8:40pm

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" is male

Posts: 372

Date of registration: Oct 14th 2002

Location: Ex-Kanzlerstadt Hannover

12

Wednesday, December 18th 2002, 8:49pm

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" is male

Posts: 2,863

Date of registration: Dec 11th 2001

Location: Hämelerwald

Occupation: Wissenschaftlicher Mitarbeiter (Forschungszentrum L3S, TU Braunschweig)

13

Wednesday, December 18th 2002, 8:49pm

Quoted

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:

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 :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" is male

Posts: 2,643

Date of registration: Dec 11th 2001

Occupation: Developer

14

Wednesday, December 18th 2002, 11:41pm

Quoted

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.

Quoted

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" is male

Posts: 339

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

15

Thursday, December 19th 2002, 7:38pm

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

Hier ist es:

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

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" is male
  • "Arne" started this thread

Posts: 1,798

Date of registration: Oct 7th 2002

Location: Hannover :)

Occupation: Lecturer ThI

16

Friday, December 20th 2002, 10:44am

@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" is male

Posts: 109

Date of registration: Oct 14th 2002

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

Occupation: CvD ;)

17

Friday, December 20th 2002, 10:59am

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" is male

Posts: 339

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

18

Friday, December 20th 2002, 3:10pm

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:

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



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

Arne

ThI

  • "Arne" is male
  • "Arne" started this thread

Posts: 1,798

Date of registration: Oct 7th 2002

Location: Hannover :)

Occupation: Lecturer ThI

19

Friday, December 20th 2002, 4:32pm

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" is male

Posts: 339

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

20

Friday, December 20th 2002, 4:51pm

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)