Skip to content

Instantly share code, notes, and snippets.

View boxp's full-sized avatar
👩‍💻
in reality

Keitaro Takeuchi boxp

👩‍💻
in reality
View GitHub Profile
@boxp
boxp / problem6.clj
Created June 22, 2013 14:21
clojureでproject-eulerに挑戦 〜六問目〜
(print
(let [a (reduce + (range 1 101))]
(-
(* a a)
(reduce + (map #(* % %) (range 1 101))))))
@boxp
boxp / problem7.clj
Created June 22, 2013 14:21
clojureでproject-eulerに挑戦 〜七問目〜
(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)))))
@boxp
boxp / problem8.clj
Created June 22, 2013 14:23
clojureでproject-eulerに挑戦 〜八問目〜
(def a (seq (str 7316717653133062491922511967442657474235534919493496983520312774506326239578318016984801869478851843858615607891129494954595017379583319528532088055111254069874715852386305071569329096329522744304355766896648950445244523161731856403098711121722383113622298934233803081353362766142828064444866452387493035890729629049156044077239071381051585930796086670172427121883998797908792274921901699720888093776657273330010533678812202354218097512545405947522435258490771167055601360483958644670632441572215539753697817977846174064955149290862569321978468622482839722413756570560574902614079729686524145351004748216637048440319989000889524345065854122758866688116427171479924442928230863465674813919123162824586178664583591245665294765456828489128831426076900422421902267105562632111110937054421750694165896040807198403850962455444362981230987879927244284909188845801561660979191338754992005240636899125607176060588611646710940507754100225698315520005593572972571636269561882670428252483600823257530420752963450)))
(p
@boxp
boxp / problem9.clj
Created June 22, 2013 14:24
clojureでproject-eulerに挑戦 〜九問目〜
(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)])))
(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))
; 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
@boxp
boxp / abc2-1.cljs
Created October 28, 2013 12:10
ABC#2 1問目
(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
@boxp
boxp / abc2-2.cljs
Created October 28, 2013 12:25
ABC#2 2問目
(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
@boxp
boxp / abc2-3.cljs
Created October 28, 2013 12:35
ABC#2 3問目
(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
@boxp
boxp / plugin_temp.clj
Created November 4, 2013 18:23
Grimoireのプラグイン一例です.~/.grimoire/plugin/にこのコードを保存したファイルを配置する事で,ツイートをコピー出来るようになります.
(do
; 名前空間の束縛はdo内で行なって下さい
(import '(javafx.scene.input Clipboard ClipboardContent))
; プラグインを作成
; それぞれnilの部分を書き換えて,プラグインの処理を書いて下さい.
(reify Plugin
; 右クリックメニューの名前を返します
(get-name [this] "クリップボードへコピー")
; ツイート(status)を受信した際に呼ばれる
(on-status [this status] nil)