kensaku7の日記

等差数列 (common lisp) 訂正

(cdr lst) と lst は逆だったかも。

(defun f (fn lst)
  (mapcar fn lst (cdr lst)))

(f #'cons '(1 2 3 4 5))
((1 . 2) (2 . 3) (3 . 4) (4 . 5))

Permalink | コメント(0) | トラックバック(0) | 11:56

等差数列 (common lisp)

http://d.hatena.ne.jp/mkut/20111226/1324907006

これでいいのかな？

(defun f (fn lst)
  (mapcar fn (cdr lst) lst))

Permalink | コメント(0) | トラックバック(2) | 02:32

FizzBuzz問題を%を使わずにやってみました（java）

http://d.hatena.ne.jp/JunichiIto/20111007/1317976730

public class FizzBuzz {

    public static void main(String[] args) {
	int a = 0;
	try {
	    a = Integer.parseInt(args[0]);
	    if (a < 1) {
		throw new Exception();
	    }
	} catch (Throwable t) {
	    System.out.println("Error!");
	    System.exit(1);
	}

	for (int i = 1, j = 1, k = 1; i <= a; i++, j++, k++) {
	    String s;
	    if (j == 3 && k == 5) {
		j = k = 0;
		s = "FizzBuzz";
	    } else if (j == 3) {
		j = 0;
		s = "Fizz";
	    } else if (k == 5) {
		k = 0;
		s = "Buzz";
	    } else {
		s = Integer.toString(i);
	    }
	    System.out.println(s);
	}
    }

}

Permalink | コメント(0) | トラックバック(0) | 01:02

ブログ開設

とりあえず、ブログを開設しました。

思いついたことなど書いていきたいと思います。

Permalink | コメント(0) | トラックバック(0) | 23:25