mnzk

#lang racket

;;
;; queue%クラスのメソッド enqueue, dequeue を producer%, consumer%だけに公開している。
;; let の外部からはこの２メソッドは見えない。
;;

(define-values (queue% producer% consumer%)
  (let ()
    (define-member-name enqueue (generate-member-key))

mnzk

(defn k
  ([x] (format "%sかわいいよ%" x))
  ([] (k "λ")))

mnzk

#
# 既知の素数リストを保存しているファイルを読み込み
# 続きから素数を列挙する
#
# 素数リストファイルは
# primes000.txt, primes001.txt, primes002.txt ...
# と複数ファイルに分割されていても良い。
# ファイル番号の順に内容を連結した時、素数が昇順に並んでいること。
# 新たな素数は、ファイル番号最大+1のファイル名で保存します。
#

mnzk

/*
* C++11 (VisualStudio 2013 Express Edition)
* boost 1.55.0
*/

#include <iostream>
#include <string>
#include <vector>
#include <boost/coroutine/all.hpp>

mnzk

/*
 * C++11 (VisualStudio 2013 Express Edition)
 * boost 1.55.0
 */

#include <iostream>
#include <boost/coroutine/all.hpp>
#include <boost/range/irange.hpp>
#include <boost/multiprecision/cpp_int.hpp>

mnzk

;;-*- coding: utf-8 -*-
(ns tenki.core
  (:require [clojure.xml :as xml]
            [clojure.zip :as zip]
            [clojure.data.zip.xml :refer :all]
            [clojure.core.cache :as cache]))

(defn city-url
  [city-id]
  (->> city-id (format "http://tenki.jp/component/static_api/rss/forecast/city_%d.xml")))

mnzk

# 追加したメソッドをパイプラインで使いたい

$foo = "abc" | Add-Member ScriptMethod Repeat{
    param($n)
    $this * $n
} -PassThru

#Helper で対応
filter Invoke-Method($method){
    $method.Invoke($_)

mnzk

# 追加したメソッドをパイプラインで使いたいが...

$foo = "abc" | Add-Member ScriptMethod Repeat{
    param(
        [Parameter(ValueFromPipeline=$True)]$n
    )
    $this * $n
} -PassThru

$foo.Repeat(5)     #=> abcabcabcabcabc

mnzk

#
#  PowerShell (v3.0) + ODAC (and ADO.net)
#

function Load-DbProviderFactory([ScriptBlock[]]$loaders){
    $fa = $loaders | foreach {
        try{
            (& $_)| ? {$_ -is [System.Data.Common.DbProviderFactory]}
        }catch{}
    } | Select -First 1

mnzk

;; hy-lang fizzbuzz

(import [itertools [count imap]])
(import [pprint [pprint]])

(defn freq [v n]
  (->> (* [""] (dec n)) (+ [v])))

(defn fizzbuzz []
  (->> (imap (fn [f b n] (or (+ f b) n))