はじめに 作業メモ。あとで清書予定。 必要なツールのインストール 以下のツールをインストールする $ npm install -g yo grunt-cli gulp bower typings karma $ npm install -g generator-angular $ gem install compass プロジェクト作成 $ mkdir ng001 $ …

（前の記事：nibファイルを使わないテンプレートを作る（１）Window-Based Application）今回は、iPhone用のView-Based Application をカスタマイズします。 テンプレート View-Based Application をコピーする /Developer/Platforms/iPhoneOS.platform/Deve…

Interface Builder を使いこなせません。もう使いたくありません。そこで、Xcode付属のテンプレートをカスタマイズして、nibファイルを使わないテンプレートを作ることにしました。 （参考：d:id:griffin-stewie:20090315:p1）まずは、iPhone用のWindow-Base…

package myomi.ant.taskdefs; import java.io.File; import java.io.FileInputStream; import java.io.FileOutputStream; import java.io.IOException; import java.lang.reflect.InvocationTargetException; import org.apache.tools.ant.DirectoryScanner;…

こんなの。 package myomi.ant.taskdefs; import java.io.File; import java.io.IOException; import java.io.PrintWriter; import java.lang.reflect.InvocationTargetException; import java.lang.reflect.Method; import org.apache.tools.ant.DirectoryS…

XPathが使えますよ（SXPath）。 (use rfc.http) (use sxml.ssax) (use sxml.sxpath) (let-values (((status head body) (http-get "zip.ricollab.jp" "/5340026"))) (let ((xml (call-with-input-string body (cut ssax:xml->sxml <> '((xhtml . "http://www…

仕事では、XMLを扱うことが多いのです。『プログラミングGauche』を写経し始めたばかりで、まだまだへっぽこな私ですが、早速、日頃の業務に使ってみようかなぁと思っています。そこで手習いとして、GaucheでXMLを扱った処理をいくつか書いてみます。最初は…

any-predとevery-predを定義する (define (any-pred . preds) (lambda (x) (fold (lambda (pred b) (or (pred x) b)) #f preds))) (define (every-pred . preds) (lambda (x) (fold (lambda (pred b) (and (pred x) b)) #t preds))) gosh> (filter (any-pred…

すぐ忘れるのでメモ。 ;lengthを書き換えた (define (length lst) (if (null? lst) 0 (+ 1 (length (cdr lst))))) ;元の組み込みlengthで定義しなおす（『プログラミングGauche』のP49より） (define length (with-module gauche length)) 元に戻す方法がわ…

make-listを定義する 「7.6 引数のパターンマッチング」から再開。 (define (make-list n . args) (let ((init (if (null? args) #f (car args)))) (if (= n 0) '() (cons init (make-list (- n 1) init)))))gosh> (make-list 10) (#f #f #f #f #f #f #f #f …

each-of-numbersを定義する (define (for-each-numbers proc lst) (for-each proc (filter number? lst)))gosh> (for-each-numbers print '(1 #t 2 "hoge" 3)) 1 2 3 #<undef> map-numbersを定義する (define (map-numbers proc lst) (map proc (filter number? lst</undef>…

foldを使わず、lengthを定義する こう？ (define (length lst) (if (null? lst) 0 (+ 1 (length (cdr lst)))))gosh> (length '()) 0 gosh> (length '(1 2 3)) 3できたみたい。 deep-copy-listを定義する (define (deep-copy-list lst) (if (pair? lst) (cons…

「プログラミングGauche」を買ってきた。Scheme（に限らず、関数型言語全般）に触れるのは初めて。早速写経します。