yy research code

yy.scm

(define (yy-print fmt . args)
  ;; if Guile
  (apply format #t fmt args)
  ;; if Racket
  ;;(apply printf fmt args)
  )

(define (inc x)
  ;; if Guile
  (1+ x)
  ;; if Racket
  ;;(add1 x)
  )

(define c
  (reset
   (let* ((yin-cnt 0)
          (yin
           ((lambda (cc)
              (shift k k)
              (yy-print "@[~a] " yin-cnt)
              (set! yin-cnt (inc yin-cnt))
              cc) (call/cc (lambda (c) c))))
          (yang-cnt 0)
          (yang
           ((lambda (cc)
              (yy-print "*[~a] " yang-cnt)
              (set! yang-cnt (inc yang-cnt))
             cc) (call/cc (lambda (c) c)))))
     (yin yang))))