(use srfi-1) (use math.mt-random) (use gauche.sequence) (define (list-randomize ls) (define (remove-with-index n ls) (reverse (fold-with-index (^ (i e acc) (if (= i n) acc (cons e acc))) '() ls))) (define rand (let1 m (make <mersenne-twister> :seed (sys-time)) (^ (size) (mt-random-integer m size)))) (define (randomize ls) (let rec ((ls ls)(acc '())) (if (null? ls) acc (let1 idx (rand (length ls)) (rec (remove-with-index idx ls) (cons (list-ref ls idx) acc)))))) (randomize ls)) (list-randomize (iota 10)) ;; -> (0 1 2 5 8 9 7 6 3 4) (list-randomize (iota 10)) ;; -> (4 3 0 8 7 6 5 9 2 1)
<textarea cols="50" id="bs-input" rows="5">(map (lambda (n)(let rec ((n n)(acc 1))(if (zero? n)acc(rec (- n 1)(* n acc)))))(iota 100))</textarea> <button id="eval">eval</button> <div id="bs-console2" style="border: dotted;"> </div> <script src="biwascheme.js"> (define (eval-code arg) (let* ((src (get-content ($ "bs-input"))) (code (read-from-string src))) (element-update! ($ "bs-console2")(eval code)))) (add-handler! ($ "eval") "click" eval-code) </script>
<div id="bs-console" style="border-style: dotted;"> </div> <script src="biwascheme.js"> ;; (js-call (js-eval "alert") "Hello, world !! (powerd by biwascheme)") (element-update! ($ "bs-console") "Hello, world !! (by biwascheme)") </script>↓結果↓
How to build lib/biwascheme.js
You need make and Java installed.
(1) Download and unpack YUI compressor
(2) Create a shell script ‘yuicomp’ like:
#!/bin/sh
java -jar /somewhere/yuicompressor-2.4.2/build/yuicompressor-2.4.2.jar $*
(3) make
;; color theme (require 'color-theme nil t) (color-theme-initialize) (color-theme-midnight) (set-face-background 'region "blue4") (set-face-background 'trailing-whitespace "purple4") (set-face-background 'modeline-buffer-id "grey5") (set-face-foreground 'modeline-buffer-id "maroon2") (set-face-background 'mode-line "grey20") (set-face-foreground 'mode-line "grey75") (set-face-background 'mode-line-inactive "grey3") (set-face-foreground 'mode-line-inactive "grey35") (set-face-background 'secondary-selection "red") (set-face-underline-p 'modeline nil) (custom-set-faces '(font-lock-comment-face ((t (:italic nil :foreground "slate gray")))))
;; quack (custom-set-faces '(quack-pltish-keyword-face ((t (:bold t :foreground "maroon2")))) '(quack-pltish-defn-face ((t (:bold t :foreground "darkgoldenrod3")))) '(quack-threesemi-semi-face ((t (:bold t :foreground "blue")))) '(quack-threesemi-text-face ((t (:bold t :foreground "blue")))))
@valvallow emacs の表示をそのまま html 化する elisp コード htmlize というのがあります。 http://bit.ly/IdlEc もし html を貼れるブログならこういうのもアリかも。これはイイかも！！
(define (fact n) (if (zero? n) 1 (* n (fact (- n 1))))) (fact 10) ;; 3628800 ;; -------------------------------- (use srfi-1) (define (fact n) (fold * 1 (unfold zero? identity (lambda (n) (- n 1)) n))) (fact 10) ;; 3628800
(use srfi-1)
(define (fact n)
(fold * 1 (unfold zero? identity (lambda (n)
(- n 1)) n)))
(fact 10)
;; 3628800
(define (fact n) (if (zero? n) 1 (* n (fact (- n 1))))) (fact 10) ;; 3628800
なんかハイライト間違ってね？しかもなんだか行間がめちゃめちゃ開くのはなんで？
(define combination (lambda (r l) (cond ((null? l) '()) ((or (zero? r)(> r (length l))) '()) ((= r 1)(map list l)) ((= r (length l))(list l)) (else (append (map (lambda (n)(cons (car l) n)) (combination (- r 1)(cdr l))) (combination r (cdr l))))))) |
(define combination (lambda (r l) (cond ((null? l) '()) ((or (zero? r)(> r (length l))) '()) ((= r 1)(map list l)) ((= r (length l))(list l)) (else (append (map (lambda (n)(cons (car l) n)) (combination (- r 1)(cdr l))) (combination r (cdr l))))))) |
