Return to Answer

forgot code snippet oops

edited Jul 28, 2015 at 5:09

1.1k
9
17

Racket, 443 434434 386 Bytes

Just for kicks.

(require file/gunzip net/base64)(define(f n)(let([odefine o(open-output-bytes)])(gunzip-through-ports(open-input-bytes(base64-decode(if(even? n)#"H4sIALHztlUAA21OwQ0AIQj7O0UXICzUpIs4/AkcmEvOSIu2DQC/Rxqs9qNIWoCzCtjnsig93p/1ak/gCpFRbWGS2VjMMuAS8Son573ADGJQbsfAXZpfT+YeCYucBeEAAAA="#"H4sIAOvztlUAA22O0Q0AIQhD/5miC5AuRMIiDn9A5b40Ck3pU4HnylS1WIfAmU01WZIlohHu5FgZYCgzAKe5#"H4sIAK8Lt1UAA22Q3Q3AIAiE352CBcwtRHLpHg7f8lubahRUDuVD5DjItrH9REgOEWgskfVMDeca1GWcSmN2WFBtlUTdzdmSOT0BpEpGnjxUAf2RmvPq1OyKGF6N5V1nvgYcWjeod/xH34TfTk+YQ1BF3n53Hj8JotBRtH0qM48OeoWrBxJH23KL/RNeSuuBm2suT9gEg2MyyyQAAAA==")dOMh4IDXe8MUbT1AqtKkBAAA="))o)(list-ref(string-split(get-output-string o)"a")(modulo n 2)))

Prettified

Just for kicks.

(require file/gunzip net/base64) (define (f n) (letdefine ([oo (open-output-bytes)])   (gunzip-through-ports  (open-input-bytes (base64-decode   (if (even? n) #"H4sIALHztlUAA21OwQ0AIQj7O0UXICzUpIs4/AkcmEvOSIu2DQC/Rxqs9qNIWoCzCtjnsig93p/1ak/gCpFRbWGS2VjMMuAS8Son573ADGJQbsfAXZpfT+YeCYucBeEAAAA=" base64-decode #"H4sIAOvztlUAA22O0Q0AIQhD/5miC5AuRMIiDn9A5b40Ck3pU4HnylS1WIfAmU01WZIlohHu5FgZYCgzAKe5#"H4sIAK8Lt1UAA22Q3Q3AIAiE352CBcwtRHLpHg7f8lubahRUDuVD5DjItrH9REgOEWgskfVMDeca1GWcSmN2WFBtlUTdzdmSOT0BpEpGnjxUAf2RmvPq1OyKGF6N5V1nvgYcWjeod/xH34TfTk+YQ1BF3n53Hj8JotBRtH0qM48OeoWrBxJH23KL/RNeSuuBm2suT9gEg2MyyyQAAAA==")dOMh4IDXe8MUbT1AqtKkBAAA="))   o) (list-ref (string-split (get-output-string o) "a") (modulo n 2)))

N.B. you may need the #lang racket line to run in DrRacket.

Racket, 443 434 Bytes

Just for kicks.

(require file/gunzip net/base64)(define(f n)(let([o(open-output-bytes)])(gunzip-through-ports(open-input-bytes(base64-decode(if(even? n)#"H4sIALHztlUAA21OwQ0AIQj7O0UXICzUpIs4/AkcmEvOSIu2DQC/Rxqs9qNIWoCzCtjnsig93p/1ak/gCpFRbWGS2VjMMuAS8Son573ADGJQbsfAXZpfT+YeCYucBeEAAAA="#"H4sIAOvztlUAA22O0Q0AIQhD/5miC5AuRMIiDn9A5b40Ck3pU4HnylS1WIfAmU01WZIlohHu5FgZYCgzAKe5/xH34TfTk+YQ1BF3n53/RNeSuuBm2suT9gEg2MyyyQAAAA==")))o)(get-output-string o)))

Prettified

(require file/gunzip net/base64) (define (f n) (let ([o (open-output-bytes)])   (gunzip-through-ports (open-input-bytes (base64-decode   (if (even? n) #"H4sIALHztlUAA21OwQ0AIQj7O0UXICzUpIs4/AkcmEvOSIu2DQC/Rxqs9qNIWoCzCtjnsig93p/1ak/gCpFRbWGS2VjMMuAS8Son573ADGJQbsfAXZpfT+YeCYucBeEAAAA="  #"H4sIAOvztlUAA22O0Q0AIQhD/5miC5AuRMIiDn9A5b40Ck3pU4HnylS1WIfAmU01WZIlohHu5FgZYCgzAKe5/xH34TfTk+YQ1BF3n53/RNeSuuBm2suT9gEg2MyyyQAAAA==")))   o) (get-output-string o)))

N.B. you may need the #lang racket line to run in DrRacket.

Racket, 443 434 386 Bytes

(require file/gunzip net/base64)(define(f n)(define o(open-output-bytes))(gunzip-through-ports(open-input-bytes(base64-decode #"H4sIAK8Lt1UAA22Q3Q3AIAiE352CBcwtRHLpHg7f8lubahRUDuVD5DjItrH9REgOEWgskfVMDeca1GWcSmN2WFBtlUTdzdmSOT0BpEpGnjxUAf2RmvPq1OyKGF6N5V1nvgYcWjeod/Hj8JotBRtH0qM48OeoWrBxJH23KL/dOMh4IDXe8MUbT1AqtKkBAAA="))o)(list-ref(string-split(get-output-string o)"a")(modulo n 2)))

Just for kicks.

(require file/gunzip net/base64) (define (f n) (define o (open-output-bytes)) (gunzip-through-ports  (open-input-bytes (base64-decode #"H4sIAK8Lt1UAA22Q3Q3AIAiE352CBcwtRHLpHg7f8lubahRUDuVD5DjItrH9REgOEWgskfVMDeca1GWcSmN2WFBtlUTdzdmSOT0BpEpGnjxUAf2RmvPq1OyKGF6N5V1nvgYcWjeod/Hj8JotBRtH0qM48OeoWrBxJH23KL/dOMh4IDXe8MUbT1AqtKkBAAA=")) o) (list-ref (string-split (get-output-string o) "a") (modulo n 2)))

N.B. you may need the #lang racket line to run in DrRacket.

deleted 7 characters in body

Source Link

edited Jul 28, 2015 at 4:40

Winny

1.1k
9
17

Racket, 443443 434 Bytes

Just for kicks.

(require file/gunzip)(require net/base64)(define(f n)(let([o(open-output-bytes)])(gunzip-through-ports(open-input-bytes(base64-decode(if(even? n)#"H4sIALHztlUAA21OwQ0AIQj7O0UXICzUpIs4/AkcmEvOSIu2DQC/Rxqs9qNIWoCzCtjnsig93p/1ak/gCpFRbWGS2VjMMuAS8Son573ADGJQbsfAXZpfT+YeCYucBeEAAAA="#"H4sIAOvztlUAA22O0Q0AIQhD/5miC5AuRMIiDn9A5b40Ck3pU4HnylS1WIfAmU01WZIlohHu5FgZYCgzAKe5/xH34TfTk+YQ1BF3n53/RNeSuuBm2suT9gEg2MyyyQAAAA==")))o)(get-output-string o)))

Prettified

(require file/gunzip) (require net/base64) (define (f n) (let ([o (open-output-bytes)]) (gunzip-through-ports (open-input-bytes (base64-decode (if (even? n) #"H4sIALHztlUAA21OwQ0AIQj7O0UXICzUpIs4/AkcmEvOSIu2DQC/Rxqs9qNIWoCzCtjnsig93p/1ak/gCpFRbWGS2VjMMuAS8Son573ADGJQbsfAXZpfT+YeCYucBeEAAAA=" #"H4sIAOvztlUAA22O0Q0AIQhD/5miC5AuRMIiDn9A5b40Ck3pU4HnylS1WIfAmU01WZIlohHu5FgZYCgzAKe5/xH34TfTk+YQ1BF3n53/RNeSuuBm2suT9gEg2MyyyQAAAA=="))) o) (get-output-string o)))

N.B. you may need the #lang racket line to run in DrRacket.

Racket, 443 Bytes

Just for kicks.

(require file/gunzip)(require net/base64)(define(f n)(let([o(open-output-bytes)])(gunzip-through-ports(open-input-bytes(base64-decode(if(even? n)#"H4sIALHztlUAA21OwQ0AIQj7O0UXICzUpIs4/AkcmEvOSIu2DQC/Rxqs9qNIWoCzCtjnsig93p/1ak/gCpFRbWGS2VjMMuAS8Son573ADGJQbsfAXZpfT+YeCYucBeEAAAA="#"H4sIAOvztlUAA22O0Q0AIQhD/5miC5AuRMIiDn9A5b40Ck3pU4HnylS1WIfAmU01WZIlohHu5FgZYCgzAKe5/xH34TfTk+YQ1BF3n53/RNeSuuBm2suT9gEg2MyyyQAAAA==")))o)(get-output-string o)))

Prettified

(require file/gunzip) (require net/base64) (define (f n) (let ([o (open-output-bytes)]) (gunzip-through-ports (open-input-bytes (base64-decode (if (even? n) #"H4sIALHztlUAA21OwQ0AIQj7O0UXICzUpIs4/AkcmEvOSIu2DQC/Rxqs9qNIWoCzCtjnsig93p/1ak/gCpFRbWGS2VjMMuAS8Son573ADGJQbsfAXZpfT+YeCYucBeEAAAA=" #"H4sIAOvztlUAA22O0Q0AIQhD/5miC5AuRMIiDn9A5b40Ck3pU4HnylS1WIfAmU01WZIlohHu5FgZYCgzAKe5/xH34TfTk+YQ1BF3n53/RNeSuuBm2suT9gEg2MyyyQAAAA=="))) o) (get-output-string o)))

N.B. you may need the #lang racket line to run in DrRacket.

Racket, 443 434 Bytes

Just for kicks.

(require file/gunzip net/base64)(define(f n)(let([o(open-output-bytes)])(gunzip-through-ports(open-input-bytes(base64-decode(if(even? n)#"H4sIALHztlUAA21OwQ0AIQj7O0UXICzUpIs4/AkcmEvOSIu2DQC/Rxqs9qNIWoCzCtjnsig93p/1ak/gCpFRbWGS2VjMMuAS8Son573ADGJQbsfAXZpfT+YeCYucBeEAAAA="#"H4sIAOvztlUAA22O0Q0AIQhD/5miC5AuRMIiDn9A5b40Ck3pU4HnylS1WIfAmU01WZIlohHu5FgZYCgzAKe5/xH34TfTk+YQ1BF3n53/RNeSuuBm2suT9gEg2MyyyQAAAA==")))o)(get-output-string o)))

Prettified

(require file/gunzip net/base64) (define (f n) (let ([o (open-output-bytes)]) (gunzip-through-ports (open-input-bytes (base64-decode (if (even? n) #"H4sIALHztlUAA21OwQ0AIQj7O0UXICzUpIs4/AkcmEvOSIu2DQC/Rxqs9qNIWoCzCtjnsig93p/1ak/gCpFRbWGS2VjMMuAS8Son573ADGJQbsfAXZpfT+YeCYucBeEAAAA=" #"H4sIAOvztlUAA22O0Q0AIQhD/5miC5AuRMIiDn9A5b40Ck3pU4HnylS1WIfAmU01WZIlohHu5FgZYCgzAKe5/xH34TfTk+YQ1BF3n53/RNeSuuBm2suT9gEg2MyyyQAAAA=="))) o) (get-output-string o)))

N.B. you may need the #lang racket line to run in DrRacket.

Source Link

answered Jul 28, 2015 at 3:54

Winny

1.1k
9
17

Racket, 443 Bytes

Just for kicks.

(require file/gunzip)(require net/base64)(define(f n)(let([o(open-output-bytes)])(gunzip-through-ports(open-input-bytes(base64-decode(if(even? n)#"H4sIALHztlUAA21OwQ0AIQj7O0UXICzUpIs4/AkcmEvOSIu2DQC/Rxqs9qNIWoCzCtjnsig93p/1ak/gCpFRbWGS2VjMMuAS8Son573ADGJQbsfAXZpfT+YeCYucBeEAAAA="#"H4sIAOvztlUAA22O0Q0AIQhD/5miC5AuRMIiDn9A5b40Ck3pU4HnylS1WIfAmU01WZIlohHu5FgZYCgzAKe5/xH34TfTk+YQ1BF3n53/RNeSuuBm2suT9gEg2MyyyQAAAA==")))o)(get-output-string o)))

Prettified

(require file/gunzip) (require net/base64) (define (f n) (let ([o (open-output-bytes)]) (gunzip-through-ports (open-input-bytes (base64-decode (if (even? n) #"H4sIALHztlUAA21OwQ0AIQj7O0UXICzUpIs4/AkcmEvOSIu2DQC/Rxqs9qNIWoCzCtjnsig93p/1ak/gCpFRbWGS2VjMMuAS8Son573ADGJQbsfAXZpfT+YeCYucBeEAAAA=" #"H4sIAOvztlUAA22O0Q0AIQhD/5miC5AuRMIiDn9A5b40Ck3pU4HnylS1WIfAmU01WZIlohHu5FgZYCgzAKe5/xH34TfTk+YQ1BF3n53/RNeSuuBm2suT9gEg2MyyyQAAAA=="))) o) (get-output-string o)))

N.B. you may need the #lang racket line to run in DrRacket.