:-D

Wenn du dir nicht sicher bist, in welchem der anderen Foren du die Frage stellen sollst, dann bist du hier im Forum für allgemeine Fragen sicher richtig.
n4p
User
Beiträge: 55
Registriert: Dienstag 10. Juni 2008, 11:05

Karl hat geschrieben:5. Wäre es cool, jetzt einfach den Pythoncode zu posten? :)
defintiv nicht :P
BlackJack

Und die obligatorische Lösung in Io:

Code: Alles auswählen

#!/usr/bin/env io

BigNum squared := method(self ** 2)
Sequence asBigNum := method(BigNum with(self))

QRandom := Object clone do(
    state ::= BigNum
    length ::= 0
    offset ::= 0
    
    with := method(n,
        result := QRandom clone setState(BigNum with(n))
        result setLength(result state asString size)
        result setOffset(result length >> 1)
    )
    
    next := method(
        state = state squared asString slice(offset, offset + length) asBigNum
    )
)

n := 11111
x := 20

random := QRandom with(n)
x repeat(random next println)
Benutzeravatar
Rebecca
User
Beiträge: 1662
Registriert: Freitag 3. Februar 2006, 12:28
Wohnort: DN, Heimat: HB
Kontaktdaten:

So, dann will ich auch mal. "Zufalls"zahlen in Emacs:

Code: Alles auswählen

(defun middle-letters (txt n)
  (let ((start (/ (- (length txt) n) 2))
	(end (/ (+ (length txt) n) 2)))
    (substring txt start end)))

(defun neumann-step (number)
  (let ((n (length (number-to-string number))))
    (string-to-number (middle-letters (number-to-string (expt number 2)) n))))

(defun neumann-rand (start steps)
  (dotimes (i steps start)
    (setq start (neumann-step start))))

(neumann-rand 123 3)
Offizielles Python-Tutorial (Deutsche Version)

Urheberrecht, Datenschutz, Informationsfreiheit: Piratenpartei
Benutzeravatar
Hyperion
Moderator
Beiträge: 7478
Registriert: Freitag 4. August 2006, 14:56
Wohnort: Hamburg
Kontaktdaten:

Ich warte auf Brainf**k oder zur Not Prolog ;-)
EyDu
User
Beiträge: 4881
Registriert: Donnerstag 20. Juli 2006, 23:06
Wohnort: Berlin

Na gut, dann noch eine Prologlösung. Nicht schön, aber selten:

Code: Alles auswählen

square(N, M) :- M is N * N.
heads([H], []).
heads([H|T], [H|K]) :- heads(T, K).
intToList(I, L) :- intToListH(I, T), reverse(T, L).
intToListH(I, [I]) :- I < 10, !.
intToListH(I, [H|Tail]) :- H is I mod 10, R is I // 10, intToListH(R, Tail).
listToInt(L, A) :- reverse(L, R), listToIntH(R, 1, A).
listToIntH([E], F, G) :- E < 10, G is E*F, !.
listToIntH([H|T], F, E) :- A is H*F, FF is F*10, listToIntH(T, FF, C), E is A+C.
center(A, N, A) :- length(A, L), L =:= N, !.
center([H|T], N, B) :- length(T, L), I is L mod 2, I =:= 0, center(T, N, B), !.
center(T, N, B) :- heads(T, K), center(K, N, B), write('test'), !.
main(I, R) :- square(I, X), intToList(I, Z), intToList(X, Y), length(Z, L),
              center(Y, L, A), listToInt(A, R).
Karl
User
Beiträge: 252
Registriert: Freitag 29. Juni 2007, 17:49

Wie genau ist denn "2. quadriere und wähle die mittleren n Ziffern als neue Zufallszahl" gemeint?
123456789
-> Welche Ziffern muss ich denn jetzt da rausnehmen?
EyDu
User
Beiträge: 4881
Registriert: Donnerstag 20. Juli 2006, 23:06
Wohnort: Berlin

Du nimmst dir eine Zahl n. Zum Beispiel 5484.
Dann quadrierst du diese: 30074256.
Die Zufallszahl bildet sich dann aus den viert (weil n vier Zeichen lang ist) mittleren Ziffern des Quadrats: 0742.
Karl
User
Beiträge: 252
Registriert: Freitag 29. Juni 2007, 17:49

EyDu hat geschrieben:Du nimmst dir eine Zahl n. Zum Beispiel 5484.
Dann quadrierst du diese: 30074256.
Die Zufallszahl bildet sich dann aus den viert (weil n vier Zeichen lang ist) mittleren Ziffern des Quadrats: 0742.
Okay, so hab ich mir das auch gedach, aber nehmen wir mal an, du nimmst 1111 und quadrierst diese Zahl: 1234321
So, welche sind die mittleren Ziffern?
2343 oder 3432?
EyDu
User
Beiträge: 4881
Registriert: Donnerstag 20. Juli 2006, 23:06
Wohnort: Berlin

Karl hat geschrieben:So, welche sind die mittleren Ziffern?
Such Dir eben eine der Möglichkeiten aus ;-)
Karl
User
Beiträge: 252
Registriert: Freitag 29. Juni 2007, 17:49

EyDu hat geschrieben:
Karl hat geschrieben:So, welche sind die mittleren Ziffern?
Such Dir eben eine der Möglichkeiten aus ;-)
Wenn der uns hier schon einen Algorithmus beschreibt, könnte's ja auch eindeutig sein :p Ist ja sonst keiner.
Also *noch einen 6. Punkt gefunden hat, warum Leonidas keine Millionen kriegt* (wobei der 4. und 5. Punkt keine Gründe sind)
Leonidas
Python-Forum Veteran
Beiträge: 16025
Registriert: Freitag 20. Juni 2003, 16:30
Kontaktdaten:

EyDu hat geschrieben:
Karl hat geschrieben:So, welche sind die mittleren Ziffern?
Such Dir eben eine der Möglichkeiten aus ;-)
Ja, das war auch genau der Punkt der mir das meiste Kopfzerbrechen bei meiner Lösung gekostet hat, weil ich mich nicht entscheiden konnte und das wohl nicht definiert war. Ich finde das aber recht blöd, weil es damit quasi zwei Arten des Algorithmus gibt, die unterschiedliche Ergebnisse liefern.
My god, it's full of CARs! | Leonidasvoice vs (former) Modvoice
Karl
User
Beiträge: 252
Registriert: Freitag 29. Juni 2007, 17:49

Ja, deshalb ist das korrekterweise auch kein Algorithmus.
Jedenfalls ist er zu unpräzise beschrieben.
Ich hab gerade angefangen, das in Brainfuck zu schreiben, aber ich bin noch nicht wirklich weit :p das is ne richtige Qual.
Benutzeravatar
numerix
User
Beiträge: 2696
Registriert: Montag 11. Juni 2007, 15:09

Es scheint so zu sein, dass man bei der Quadratmittenmethoden nach Neumann, um die es hier ja geht, in solchen Fällen, die "Mitte" nach rechts verschiebt.

Beleg - leider ohne weitere Erläuterung, warum gerade dies die Mitte ist:
http://statistik.mathematik.uni-wuerzbu ... seudo.html
BlackJack

Eine Lösung in C, die `libgmp` verwendet. Mittelpunktberechnung ist aber bei meinen Lösungen auf die hypothetischen doppelt so vielen Ziffern der Ausgangszahl bezogen, die beim Quadrieren entstehen können. Alles andere war mir zu kompliziert, weil man sich Sonderfälle einhandelt, wenn der aktuelle Zustand weniger als die hälfte der Ziffern der Ausgangszahl hat.

Code: Alles auswählen

#include <alloca.h>
#include <stdio.h>
#include <stdlib.h>
#include <gmp.h>

typedef struct {
    mpz_t state;
    unsigned int length;
} QRandom;

void QRandom_init(QRandom *r, unsigned long n)
{
    mpz_init_set_ui(r->state, n);
    r->length = mpz_sizeinbase(r->state, 10);
}

void QRandom_destroy(QRandom *r)
{
    mpz_clear(r->state);
    r->length = 0;
}

unsigned long QRandom_next(QRandom *r)
{
    char *tmp;
    unsigned int offset;
    
    mpz_mul(r->state, r->state, r->state);
    tmp = alloca(r->length * 2 + 1);
    mpz_get_str(tmp, 10, r->state);
    offset = r->length / 2;
    tmp[offset + r->length] = '\0';
    mpz_set_str(r->state, tmp + offset, 10);
    return mpz_get_ui(r->state);
}

int main(int argc, char** argv) {
    QRandom random;
    unsigned int i;
    
    QRandom_init(&random, 11111);
    for (i = 0; i < 20; ++i) {
        printf("%lu\n", QRandom_next(&random));
    }
    QRandom_destroy(&random);
    
    return EXIT_SUCCESS;
}
Wobei mir gerade auffällt, dass vielleicht auch mal eine 0 oder eine 1 als Zustand auftreten kann, dann sieht's blöd aus mit den folgenden "Zufallszahlen". :-)
mitsuhiko
User
Beiträge: 1790
Registriert: Donnerstag 28. Oktober 2004, 16:33
Wohnort: Graz, Steiermark - Österreich
Kontaktdaten:

Und hier in Vimscript: http://paste.pocoo.org/show/73064/

Muss mal wieder Schmerzen spüren :-)
TUFKAB – the user formerly known as blackbird
Benutzeravatar
dennda
User
Beiträge: 17
Registriert: Montag 19. November 2007, 22:07

Hier noch ein bisschen sehr schlechtes Java.

Wer mich dafür kritisiert wird erschossen. :D
audax
User
Beiträge: 830
Registriert: Mittwoch 19. Dezember 2007, 10:38

Rekursiv in Java?
Mutig ;D
Benutzeravatar
Hyperion
Moderator
Beiträge: 7478
Registriert: Freitag 4. August 2006, 14:56
Wohnort: Hamburg
Kontaktdaten:

audax hat geschrieben:Rekursiv in Java?
Mutig ;D
Wieso?

@dennda:
Du könnest Dir den häßlichen Cast in Zeile 25 sparen:

Code: Alles auswählen

String subsequence = cast.substring(mid-2, mid+2);
mitsuhiko
User
Beiträge: 1790
Registriert: Donnerstag 28. Oktober 2004, 16:33
Wohnort: Graz, Steiermark - Österreich
Kontaktdaten:

Und weil's so schön ist nochmal in C:

Code: Alles auswählen

#include <stdio.h>
#include <string.h>
#include <stdlib.h>


int
nrnd(int n, int x)
{
        int l, nl, offset, i;
        char s[100], s2[100];
        sprintf(s, "%d", n);
        l = strlen(s);

        for (i = 0; i != x; ++i) {
                sprintf(s, "%d", n * n);
                nl = (strlen(s) - l) / 2;
                memcpy(s2, s + nl, l);
                s2[l] = '\0';
                n = atoi(s2);
        }

        return n;
}
TUFKAB – the user formerly known as blackbird
Antworten