# mehr modem kein programm

July 11 2014 at 3:38 PM

Response to Yep

in memorian der toxik von den vietnam strom problem

mini g~1

define (expmod b e m)
(cond ((= e 1) b)
((even? e)
(remainder ((lambda (x) (* x x))
(expmod b (/ e 2) m)) m))
(else (remainder (* b (expmod b (- e 1) m)) m))))
;Value: expmod

(define (J a n)
(cond ((= a 1) 1)
((even? a) (* (J (/ a 2) n) (if (even? (/ (- (* n n) 1) 8))
1 -1)))
(else (* (J (remainder n a) a) (if (even? (/ (* (- a 1) (- n 1)) 4))
1 -1)))))
;Value: j

;; Solvay-Strassen test
(define (prime? n)
(define a (+ 2 (random (- n 2))))
(= (expmod a (/ (- n 1) 2) n) (J a n)))
;Value: prime?
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
der output ist

You needed 0. 1 seconds
to kill all the sheep.

Excellent job!

ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

big apple christian

mein kommentar

PRINT "hahaaaaaaaa du f.... kein generierung mit deinen parti keln moeglich"
PRINT " der spinnt der bat schaumt nit seiner uuu das2 von plus und minus dreck
'sub "bus"
liban ...poisoned
in time from to

there some good aplication answer yes or nothing
if you give him a yes or no question

nut that too much
(perhaps has the game in a workversion too
is the background a piece of it ░░

faellt mir ein

 Respond to this message