Hello World, I'm the owner of this script :

You can copy and paste my script.

#lang racket
(define (fibonacci x y)
  (if (< x 99999)
      ((println x)
      (println y)
      (fibonacci (+ x y) (+ x y y)))
      (+ 1 1)
  )
)
 
(define (binary x)
  (if (<= x #b1111111111)
      ((println (10->bin x))
       (binary (+ x 1)))
      (+ 1 1))
)
 
(define (10->bin num)
  (define (10->bin-help num count)
    (define sq
      (expt 2 count))
    (cond
      [(zero? count) (list num)]
      [else (cons (quotient num sq) (10->bin-help (remainder num sq) (sub1 count)))]
      )
    )
  (member 1 (10->bin-help num 19)))
 
(define (code x)
  (if (>= x 43251)
      ((if (string=? (substring (number->string x) 0 5) "43251")
           (println "code found")
           ((code (string->number (substring (number->string x) 1))))))
      ((println "code not found")
       (println "try again"))))
RAW Paste Data

#lang racket
(define (fibonacci x y)
  (if (< x 99999)
      ((println x)
      (println y)
      (fibonacci (+ x y) (+ x y y)))
      (+ 1 1)
  )
)

(define (binary x)
  (if (<= x #b1111111111)
      ((println (10->bin x))
       (binary (+ x 1)))
      (+ 1 1))
)

(define (10->bin num)
  (define (10->bin-help num count)
    (define sq
      (expt 2 count))
    (cond
      [(zero? count) (list num)]
      [else (cons (quotient num sq) (10->bin-help (remainder num sq) (sub1 count)))]
      )
    )
  (member 1 (10->bin-help num 19)))

(define (code x)
  (if (>= x 43251)
      ((if (string=? (substring (number->string x) 0 5) "43251")
           (println "code found")
           ((code (string->number (substring (number->string x) 1))))))
      ((println "code not found")
       (println "try again"))))