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
(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
(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
(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
(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
; 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)])) | |
; don't fix me | |
(defn gen-args | |
[input] | |
(split-lines input)) | |
; start code section |
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)])) | |
; don't fix me | |
(defn gen-args | |
[input] | |
(split-lines input)) | |
; start code section |
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)])) | |
; don't fix me | |
(defn gen-args | |
[input] | |
(split-lines input)) | |
; start code section |
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
(do | |
; 名前空間の束縛はdo内で行なって下さい | |
(import '(javafx.scene.input Clipboard ClipboardContent)) | |
; プラグインを作成 | |
; それぞれnilの部分を書き換えて,プラグインの処理を書いて下さい. | |
(reify Plugin | |
; 右クリックメニューの名前を返します | |
(get-name [this] "クリップボードへコピー") | |
; ツイート(status)を受信した際に呼ばれる | |
(on-status [this status] nil) |