ypsilon-takai

(ns euler.pe_107
  (:require [clojure.data.csv :as csv]
            [loom.gen :as gen]
            [loom.io :as lio]
            [loom.graph :as graph]
            [loom.alg :as alg])) 
;; Prablem 107
;;"Elapsed time: 200.8381 msecs"

;; create keyword seq :aa :ab :ac ...

ypsilon-takai

(ns euler.pe_106
  (:require [clojure.math.combinatorics :as combo]))
;; Prablem 106
;; "Elapsed time: 456.3979 msecs"


(defn create-sets [basel m]
  (let [pair-a (combo/combinations basel m)]
    (reduce into #{}
            (for [pair pair-a]

ypsilon-takai

(ns euler.pe_105
  (:require [clojure.math.combinatorics :as combo]
            [clojure.java.io :as io]))
;; Prablem 105
;; "Elapsed time: 1528.685 msecs"

;; rule 1: S(B) != S(C)
(defn verify-rule-1 [target-set]
  (->> (combo/subsets target-set)
       (map #(apply + %) ,,)

ypsilon-takai

(ns euler.euler_104
  (:require [clojure.math.combinatorics :as combo]))
;; "Elapsed time: about 35sec"

(defn lfib
  ([]
   (lfib 1 1))
  ([a b]
   (lazy-seq (cons a (lfib b (+' a b))))))

ypsilon-takai

(ns euler.pe_103
  (:require [clojure.math.combinatorics :as combo]))
;; Prablem 103
;; "Elapsed time: 5387.0654 msecs"

;; rule 1: S(B) != S(C)
(defn verify-rule-1 [target-set]
  (->> (combo/subsets target-set)
       (map #(apply + %) ,,)
       ((juxt #(count %) #(count (set %))) ,,)

ypsilon-takai

ABS:
  表示: ABS
  説明: 絶対値。 |x|を返します。
  キー操作: ■\ovalbox{convert}\ovalbox{▼}ABS
ACOS:
  表示: ACOS
  説明: アーク・コサイン。 cos^-1xを返します。 
  キー操作: ■\ovalbox{acos}
ACSH:
  表示: ACSH

ypsilon-takai

SKK日本語入力FEP設定 00
THE CLIFFHANGER

*鳥啼歌
	とりなくこゑす	ゆめさませ
	みよあけわたる	ひんかしを
	そらいろはえて	おきつへに
	ほふねむれゐぬ	もやのうち

【概要】

ypsilon-takai

def collatz(number: int):
    while number > 1:
        if (number % 2) == 0:
            number /= 2
            yield number
        else:
            number = number * 3 + 1
            yield number

ypsilon-takai

(def primitives
  (model/union
   (for [pos (map #(* 100 % ) (range 10))]
     (model/union
      (model/translate [pos pos 0] (model/cube 20 20 20))
      (model/translate [(- pos) pos 0] (model/cube 30 30 30))))))

ypsilon-takai

(ns scadclj-test.core
  (:require [scad-clj.scad :as scad]
            [scad-clj.model :as model]))


(def primitives
  (model/union
   (model/cube 100 100 100 :center true)
   (model/sphere 70)
   (model/cylinder 10 160)))