QB / QB64 Discussion Forum      Other Subforums, Links and Downloads
 

 Return to Index  

mehr modem kein programm

July 11 2014 at 3:38 PM
Anonymous  (no login)


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!

Press ESCAPE to return to main menu.

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

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   
 Copyright © 1999-2018 Network54. All rights reserved.   Terms of Use   Privacy Statement