Untitled

SUBMITTED BY: MrSpeed69

DATE: April 1, 2016, 7:32 p.m.

FORMAT: Text only

SIZE: 1.8 kB

Raw Download

HITS: 35216

Report
  1. Hello World, I'm the owner of this script :
  3. You can copy and paste my script.
  5. #lang racket
  6. (define (fibonacci x y)
  7. (if (< x 99999)
  8. ((println x)
  9. (println y)
  10. (fibonacci (+ x y) (+ x y y)))
  11. (+ 1 1)
  12. )
  13. )
  15. (define (binary x)
  16. (if (<= x #b1111111111)
  17. ((println (10->bin x))
  18. (binary (+ x 1)))
  19. (+ 1 1))
  20. )
  22. (define (10->bin num)
  23. (define (10->bin-help num count)
  24. (define sq
  25. (expt 2 count))
  26. (cond
  27. [(zero? count) (list num)]
  28. [else (cons (quotient num sq) (10->bin-help (remainder num sq) (sub1 count)))]
  29. )
  30. )
  31. (member 1 (10->bin-help num 19)))
  33. (define (code x)
  34. (if (>= x 43251)
  35. ((if (string=? (substring (number->string x) 0 5) "43251")
  36. (println "code found")
  37. ((code (string->number (substring (number->string x) 1))))))
  38. ((println "code not found")
  39. (println "try again"))))
  40. RAW Paste Data
  42. #lang racket
  43. (define (fibonacci x y)
  44. (if (< x 99999)
  45. ((println x)
  46. (println y)
  47. (fibonacci (+ x y) (+ x y y)))
  48. (+ 1 1)
  49. )
  50. )
  52. (define (binary x)
  53. (if (<= x #b1111111111)
  54. ((println (10->bin x))
  55. (binary (+ x 1)))
  56. (+ 1 1))
  57. )
  59. (define (10->bin num)
  60. (define (10->bin-help num count)
  61. (define sq
  62. (expt 2 count))
  63. (cond
  64. [(zero? count) (list num)]
  65. [else (cons (quotient num sq) (10->bin-help (remainder num sq) (sub1 count)))]
  66. )
  67. )
  68. (member 1 (10->bin-help num 19)))
  70. (define (code x)
  71. (if (>= x 43251)
  72. ((if (string=? (substring (number->string x) 0 5) "43251")
  73. (println "code found")
  74. ((code (string->number (substring (number->string x) 1))))))
  75. ((println "code not found")
  76. (println "try again"))))
comments powered by Disqus