my @tags;

#@tags : ("google", "検索エンジン","開発") はモデルとかから取得



my @ret = map{ { tag=>$_,enc=>uri_encoding($_) } } @tags;

List<String> tags;

//tags の中身はモデルとかから取得



List<Map<String,String>> result = new LinkedList<Map<String,String>>();

Iterator<String> i = tags.iterator();

while(i.hasNext()){

    String tag = i.next();

    Map<String,String> m = new HashMap<String,String>();

    m.put("tag", tag);

    m.put("enc", uri_encode(tag));

    result.add(m);

}

var tags = $.list("Google", "検索エンジン", "開発");

lambda tag2hash = new lambda(){var f(var tag){

  return $.hash( "tag", tag, "enc", uri_encode(tag) );

}};

var result = $.map(tag2hash, tags);

public class var {

    public static void main(String[] args){

        lambda square = new lambda(){var f(var v){

            return new $(v.i() * v.i());

        }};

        lambda say = new lambda(){var f(var v){

            System.out.println(v.display());

            return var.NIL;

        }};



        //文字列

        var name = new $("James");

        say.apply(name);



        //文字列と数値の混合リスト

        var ls = $.list(1, "2", 3, 4, 5);

        //リストの各要素を2乗したリストを返す(数値は自動変換)

        say.apply($.map(square, ls));

        //cdr(笑)

        say.apply(ls.cdr());



        //入れ子のハッシュテーブル

        var hash = $.hash(

          "John", $.hash("sex", "male", "age", 20),

          "Eva",  $.hash("sex", "female", "age", "unknown"),

          "Abe",  $.hash("sex", "unknown", "age", "25")

          );

        say.apply(hash.get("John").get("sex"));

        say.apply(hash.get("Nobita").get("sex"));

        say.apply(hash.keys());

        say.apply(hash);

    }

}

$ java variant/var

"James"

(1 4 9 16 25)

("2" 3 4 5)

"male"

nil

("John" "Abe" "Eva")

(("John" => (("age" => 20)("sex" => "male")))("Abe" => (("age" => "25")("sex" => "unknown")))("Eva" => (("age" => "unknown")("sex" => "female"))))

(define (square x) (* x x))

(define (ex1-3-1 x y z)

  (cond ((and (< x y) (< x z)) (+ (square y) (square z)))

        ((and (< y x) (< y z)) (+ (square z) (square x)))

        (else (+ (square x) (square y)))))

(define (report-result result form)

  (format #t "[~A] ... ~A~%" (if result "pass" "FAIL") form))

(define-syntax check

  (syntax-rules ()

                ((_ form ...) (begin (report-result form 'form) ...))))



(define (testcase1-3 ex1-3)

  (check

    (= (ex1-3 1 2 3) 13)

    (= (ex1-3 3 1 2) 13)

    (= (ex1-3 3 2 1) 13)

    (= (ex1-3 1 2 2) 8)

    (= (ex1-3 2 1 2) 8)

    (= (ex1-3 2 2 1) 8)

    (= (ex1-3 1 1 1) 2)))



(testcase1-3 ex1-3-1)

(define (ex1-3-2 x y z)

  (define (min-pair a b) (if (< a b) a b))

  (+ (square x) (square y) (square z) (- (square (min-pair x (min-pair y z))))))

(testcase1-3 ex1-3-2)

(define (ex1-3-3 x y z)

  (+ (square x) (square y) (square z) (- (square (min x y z)))))

(testcase1-3 ex1-3-3)

(define (ex1-3-4 x y z)

  (fold + (- (square (min x y z))) (map square (list x y z))))

(testcase1-3 ex1-3-4)

(define (head num ls)

  (define (<= a b) (not (> a b)))

  (if (<= num 0) '() (cons (car ls) (head (- num 1) (cdr ls)))))

(head 3 '(1 2 3 4 5 6))

(define (sum-of-square ls)

  (fold + 0 (map square ls)))

(define (bigger num ls)

  (head num (reverse (sort ls))))

(define (ex1-3-5 x y z)

  (sum-of-square (bigger 2 (list x y z))))

(define (ex1-3-5 x y z)

  (define (head num ls)

    (define (<= a b) (not (> a b)))

    (if (<= num 0) '() (cons (car ls) (head (- num 1) (cdr ls)))))

  (define (sum-of-square ls)

    (fold + 0 (map square ls)))

  (define (bigger num ls)

    (head num (reverse (sort ls))))

  (sum-of-square (bigger 2 (list x y z))))