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