vallog

2008/12/17

【Scheme】問題1.3＠SICP【Lisp】

問題1.3
3つの数を引数に取りその中の大きいもの二つの平方の和を返す手続きを定義せよ。

:再帰でいってみよー
(define (square x)
(* x x))

(define (sum-of-bigpair a b c)
(if (and (< a b)(< a c))
    ;(+ (* b b)(* c c))
    (+ (square b)(square c))
    (sum-of-bigpair b c a)))

(sum-of-bigpair 1 2 3) ; => 13
(sum-of-bigpair 5 6 2) ; => 61
(sum-of-bigpair -1 -2 -3) ; => 5

絶対もっとスマートな解があるだろ。
でも、ここまでで出てきたのは関数定義と条件分岐だけだし・・・
あー、あとandとorか。（論理和、論理積）
馬鹿正直に書いたらif文で書くことになる＾＾；
（最初、まんまとif文で書いた）
解答を探してみたら、こんなページ発見。
いろんな考え方があるんだねー。考え方がわかりやすく書いてあっておもしろい＞＜

こういう解答をSICPにも載せてくれりゃーいいのに。
SICP練習問題1.1～1.3
http://blog.ajiyoshi.org/Entry/275/

＞全部足してから一番小さいのだけ引く
とか、なるほど。

【Scheme】【Lisp】携帯電話で使えるiアプリすぷ

こ、これは・・・！？

携帯電話で使える iアプリすぷ
http://www.yuasa.kuis.kyoto-u.ac.jp/~yuasa/jakld-i/jakld-jssst.pdf
*注、PDF直リンク

(TUT-)Scheme入門
http://www.yuasa.kuis.kyoto-u.ac.jp/~hiraisi/files/tus-lecture.pptx
*注、pptx直リンク
↑これに載ってた。

[追記]
ケータイで動く i アプリすぷ iαpplisp
http://jp.franz.com/base/seminar/2006-11-22/SeminarNov2006-yuasa.pdf
[追記2]
docomo携帯で下記URLからダウンロード可能！
http://ryujin.kuis.kyoto-u.ac.jp/~yuasa/jakld-i/

試しに、
(define h "hello")
h
ってして、evalってしたら・・・
Debug Windowに "hello"
すげーな！最近は携帯アプリでプログラミングっすか！？

【Scheme】SchemeでもCollatz

wikipedia：コラッツの問題

http://ja.wikipedia.org/wiki/コラッツの問題

ということでSchemeでも今できる範囲で書いてみた。
きっとﾋﾄﾞｲのだろうけど。。

(define (collatz n)
  (display n)
  (newline)
  (if (> n 1)
    (if (even? n)
      (collatz (/ n 2))
      (collatz (+ (* n 3) 1)))))
(collatz 5)
;=> 5
;=> 16
;=> 8
;=> 4
;=> 2
;=> 1

2008/12/04

【雑記】メルマガは思いのほか良い

C#プログラミングレッスン
 http://archive.mag2.com/0000141533/index.html

.NETプログラミング研究
 http://archive.mag2.com/0000104516/index.html

仕組みと掛け算でビジネスを成功に導く【平成進化論】
http://archive.mag2.com/0000114948/index.html

ビジネス発想源
 http://archive.mag2.com/0000134134/index.html

窓の杜
“まぐまぐ”のバックナンバーを一括取得しメール形式で保存できるソフト
http://www.forest.impress.co.jp/article/2005/10/28/mag2backnumber.html

【XML】木構造の資料

木構造総合科目「ネットワーク社会を支える情報技術入門 II」
http://www.softlab.cs.tsukuba.ac.jp/~yas/gen/it-2008-10-20/it-2008-10-20.pdf
第5回木構造
http://f-server.ics.kagoshima-u.ac.jp/~fuchida/algorithm/no05.ppt

2008/11/23

【JavaScript】インタラクティブなJavaScript実行【これは便利】

JavaScriptのシェル改良版
 http://muumoo.jp/news/2008/06/21/0jssh.html

[javascript]InteractiveJS その２
http://d.hatena.ne.jp/nak2k/20050911/p1

【scheme】【javascript】Hello world その2

schemeでHello world!!
参考はこちら
 http://www.shido.info/lisp/scheme4.html

(define hello
(lambda (name)
(string-append "Hello " name "!")))
(hello "valvallow")

出力結果
"Hello valvallow!"

(cons "Hello world" '())

出力結果
("Hello world")

(define sum3
(lambda (a b c)
(+ a b c)))
(sum3 1 2 3)

出力結果
6

最後の関数はJavaScriptで書くとこんな感じ？
あえてグローバル空間汚すと
sum3 = function (a, b, c) { return a+b+c; };
sum3(1, 2, 3)
//出力結果 6

定義してそのまま実行して、グローバル空間汚さないんだったら
(function () { return function (a,b,c) { return a+b+c; }; })()(1,2,3)
//出力結果 6

ってか。

【scheme】Hello world

schemeでHello world!!

参考はこちら
 http://www.shido.info/lisp/scheme4.html

schemeは関数型言語。
最近流行（？）のHaskellは純粋関数型言語らしいが、schemeはどうやら非純粋関数型言語らしい。

(define hello "Hello world")
(define sayHello
(lambda () hello))

hello
(sayHello)

実行結果
"Hello world"
"Hello world"

正直まだコメントの書き方も、変数や関数の名前付けの傾向もわかりませんｗ

(define hello "Hello world") ⇒ defineは引数を2つ取る組み込み関数
(define sayHello ⇒ 1つ目の引数がグローバル変数の名前
(lambda () hello)) ⇒ 2つ目の引数が変数の中身
⇒ ここでは1行目で定義したhelloグローバル変数の中身を出力するようにした
hello ⇒ 1行目で定義した変数の中身が出力される
(sayHello) ⇒ 2行目で定義した関数が実行された結果が出力される

関数型言語は、「さんしょうとうかせい」と「ふくさようがない」ということで、バグの少ない良いプログラムを書くことができるらしい。
C#のラムダはこういった関数型言語から影響を受けたらしい。
Rubyは、「MatzLisp」とか「Algolの仮面をかぶったLisp」とか呼ばれてるらしいね。
らしいばかりでｽﾏｿ。

【scheme】【JavaScript】関数定義（可変長引数）（C#でいうparams）

schemeでも関数の定義。
可変長引数について。

C#のparamsキーワード付き引数的な、JavaScriptのargumentsプロパティ的な。

そうそう、コメントの仕方もわかった♪
「;」で始まる行はコメントになるっぽい。

参考はこちら
http://www.shido.info/lisp/scheme4.html

(define three-args+
  (lambda (a b c . d)
    (list a b c d)))

(three-args+ 1 2 3)
;; => (1 2 3 ())

(three-args+ 1 2 3 4 5 6 7 8 9 10)
;; => (1 2 3 (4 5 6 7 8 9 10))

(define params+
  (lambda (a . p)
    (list a p)))

(params+ 1 2 4 5)
;; => (1 (2 4 5))

でも、引数が0個もしくは1個もしくは複数個とかできんのかなぁー。
JavaScriptだとこんな感じか？

(function () { return function () { return arguments; }; })()(1,2,3,4,5,6,7)

それとも？

(function () { return function () { var ret = []; for (var i = 0; i < arguments.length; i++)ret.push(arguments[i]); return ret; }; })()(1,2,3,4,5,6,7)