leque

(define-syntax cut
  (sc-macro-transformer
   (lambda (form use-env)
     `(cut% () () ,@(cdr form)))))

(define-syntax cut%
  (sc-macro-transformer
   (lambda (form env)
     (let ((slots (cadr form))

leque

// origial: https://gist.github.com/koropicot/6265729
// NYSL Version 0.9982

trait Functor[F[_]] {
  def fmap[A, B](fa: F[A])(f: A => B): F[B]
}

class Const[A, +B](val value: A)

class Identity[A](val value: A)

leque

;; 第1回 Scheme コードバトン
;;
;; ■ これは何か？
;;   Scheme のコードをバトンのように回していき面白い物ができあがるのを楽しむ遊びです。
;;   次回 Shibuya.lisp で成果を発表します。
;;   Scheme 初心者のコードを書くきっかけに、中級者には他人のコードを読む機会になればと思います。
;;
;; ■ 2 つのルール
;;
;;   (1)自分がこれだと思える変更をコードに加えて2日以内に次の人にまわしてください。