Skip to content

Instantly share code, notes, and snippets.

I know the value and cost of nothing

Ohta Shogo athos

I know the value and cost of nothing
Block or report user

Report or block athos

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View repeating-decimal.clj
(ns repeating-decimal)
(defn repeating-decimal [n]
(loop [rem 1 rems #{} divs [] i 0]
(let [div (int (/ (* rem 10) n))
rem (mod (* rem 10) n)]
(if (and (not= rem 0) (contains? rems rem))
[n divs]
(when (not= rem 0)
(recur rem (conj rems rem) (conj divs div) (inc i)))))))

gen-class 勉強会 プログラム

1Java のクラスの作り方@tnoda\_未経験者
2Docstring 逐条講義@tnoda\_ビギナー
3gen-class の内部実装の話@athos0220上級者
5gen-class クイズ@tnoda\_中級者
View tramp.clj
(declare odd?)
(defn even? [x]
(if (== 0 x)
#(odd? (- x 1))))
(defn odd? [x]
(if (== 1 x)
View hash-map-by-names.clj
(defmacro hash-map-by-names [names]
(zipmap (map keyword names) names))
(def x 100)
(def y 200)
(let [y 2
z 3]
(hash-map-by-names [x y])) ; {:y 2, :x 100}
View echo.html
<style type="text/css">
.log {
color: red;
ws = new WebSocket("ws://localhost:8080");
ws.onopen = function (e) {
View scheme_baton.clj
;; 第1回 Scheme コードバトン
;; ■ これは何か?
;; Scheme のコードをバトンのように回していき面白い物ができあがるのを楽しむ遊びです。
;; 次回 Shibuya.lisp で成果を発表します。
;; Scheme 初心者のコードを書くきっかけに、中級者には他人のコードを読む機会になればと思います。
;; ■ 2 つのルール
;; (1)自分がこれだと思える変更をコードに加えて2日以内に次の人にまわしてください。
You can’t perform that action at this time.