mnzk

aa,bb
cc,"dd,ee""F"""
"gg
hh"

mnzk

(ns euler.problem011
  (:require [clojure.string :as string]))

(defn parse-numbers
  [input]
  (for [line (->> (string/split-lines input)
                  (map #(re-seq #"\d+" %)))
        :when (not-empty line)]
    (map #(Long/parseLong %) line)))

mnzk

(define-syntax apply->
  (syntax-rules ()
    ((_ e (f a ...)) (f e a ...))
    ((_ e (f)) (f e))
    ((_ e f) (f e))))

(define-syntax %->
  (syntax-rules ()
    ((_ e1 e2 e3 ...) (%-> (apply-> e1 e2) e3 ...))
    ((_ e1 e2) (apply-> e1 e2))

mnzk

(ns multitable
  (:use [clojure.pprint :only (cl-format)]))

(defn make-row-seq
  [deltas row]
  (lazy-seq
   (cons row (make-row-seq deltas (map + deltas row)))))

(defn make-table
  [n m]

mnzk

from functools import partial as p
from itertools import ifilter

fth = lambda init, *fs: reduce(lambda a,f: f(a), fs, init)

is_prime = lambda n: n+1 == fth(
    xrange(1, n+1),
    p(ifilter, lambda potential: n%potential==0),
    p(reduce, lambda x,y: x+y))

mnzk

from functools import partial as p
from itertools import ifilter

add = lambda x,y: x + y
is_factor = lambda n, potential: n%potential==0
factors = lambda n: ifilter(p(is_factor, n), xrange(1, n+1))
is_prime = lambda n: n+1 == reduce(add, factors(n))

mnzk

from functools import partial
from itertools import ifilter

def add(x,y):
    return x + y

def func_thread(init, *fs):
    return reduce(lambda a,f: f(a), fs, init)

class TlPrimeNumberClassifier(object):

mnzk

class PrimeNumberClassifier(object):
    def __init__(self, number):
        self.number = number
    def isFactor(self, potential):
        return self.number % potential == 0
    def getFactors(self):
        return filter(self.isFactor, range(1, self.number+1))
    def sumFactors(self):
        def add(x, y):
            return x+y

mnzk

;;-coding: utf-8 -*-
;; leiningen プロジェクトの core.cljです。

(ns pkginfo-gen.core
  (:gen-class)
  (:require [clojure.java.io :as io])
  (:require [clojure.string :as string]))

(def coding "utf-8")
(def info-filename "package-info.java")

mnzk

#-*- coding:utf-8 -*-
import sqlite3
import csv
import time
import os
from datetime import datetime
from itertools import islice
from itertools import izip_longest
from itertools import takewhile