This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
; Grimoire settings | |
; Created by BOXP<http://archbox.dip.jp/> | |
; theme settings | |
; solarized_dark | |
(reset! theme "solarized_dark") | |
; set tweet text size | |
(reset! tweets-size 13) | |
; service settings |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns atcoder.core | |
(:use [clojure.string :only (join split split-lines)]) | |
(:require [goog.events :as events] | |
[goog.dom :as dom])) | |
; don't fix me | |
(defn gen-args | |
[input] | |
(split-lines input)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(println | |
(filter | |
#(every? true? (take 3 %)) | |
(for [a (range 1 500) b (range 1 500) c (range 1 999)] | |
[(and (> b a) (> c a) (> c b)) (= (+ (* a a) (* b b)) (* c c)) (= (+ a b c) 1000) (* a b c)]))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(def a (seq (str 7316717653133062491922511967442657474235534919493496983520312774506326239578318016984801869478851843858615607891129494954595017379583319528532088055111254069874715852386305071569329096329522744304355766896648950445244523161731856403098711121722383113622298934233803081353362766142828064444866452387493035890729629049156044077239071381051585930796086670172427121883998797908792274921901699720888093776657273330010533678812202354218097512545405947522435258490771167055601360483958644670632441572215539753697817977846174064955149290862569321978468622482839722413756570560574902614079729686524145351004748216637048440319989000889524345065854122758866688116427171479924442928230863465674813919123162824586178664583591245665294765456828489128831426076900422421902267105562632111110937054421750694165896040807198403850962455444362981230987879927244284909188845801561660979191338754992005240636899125607176060588611646710940507754100225698315520005593572972571636269561882670428252483600823257530420752963450))) | |
(p |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(let [a (reduce + (range 1 101))] | |
(- | |
(* a a) | |
(reduce + (map #(* % %) (range 1 101)))))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defn palindromic? [number] | |
(loop [numseq (seq (str number))] | |
(cond (<= (count numseq) 1) true | |
(= (first numseq) (last numseq)) (recur (drop-last (rest numseq))) | |
:else false))) | |
(def thdigits | |
(range 100 1000)) | |
(println (last (sort (filter palindromic? (for [x thdigits y thdigits] (* x y)))))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(println | |
(loop [x 5 primes [2 3]] | |
(if (= (count primes) 10001) | |
(last primes) | |
(recur (+ 2 x) | |
(if (every? #(not= (mod x %) 0) primes) | |
(conj primes x) | |
primes))))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(println | |
(reduce + | |
(loop [result [1 2]] | |
(if (> (last result) 4000000) | |
(filter even? (drop-last result)) | |
(recur (conj result (reduce + (take-last 2 result)))))))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defn coll-divides? [x coll] | |
(every? true? (filter #(not= (mod x %) 0) coll))) | |
(loop [x 20] | |
(if (coll-divides? x (range 1 21)) | |
x | |
(recur (+ x 10))))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(reduce + | |
(filter | |
(fn [x] | |
(or (= 0 (rem x 5)) | |
(= (rem x 3)))) | |
(range 1 1001))) |