function randomPos() {
  return Math.ceil(Math.random() * 3);
}

function judge(userPos, botPos) {
  if (userPos == botPos) return 0;

  // 1: 石头 2: 剪刀 3: 布
  if (userPos == 3 && botPos == 1) return -1;
  if (botPos == 1 && userPos == 3) return 1;

  if (userPos > botPos) return -1;

  return 1; // bot wins
}

(define fibonacci
  (lambda (nth)
  ; 不会写了...
  ))

(define fibonacci                           
  (lambda (n a b)                          
    (cond                                 
      ((= 0 n) a + b)
      (else (fibonacci (- n 1) b (+ a b))))))

(define fibo (lambda (n) (fibonacci n 1 2)))

(define fibonacci
  ((lambda (fibonacci-def)
    (lambda (n)
      (cond
        ((= n 0) 0)
        (else (fibonacci-def fibonacci-def (- n 1) 0 1))))) ; 我把这里能访问到的 fibonacci-def 传给了真正的子程序
  (lambda (l nth a b) ; 第一项是这个 lambda 自身
    (cond
      ((= nth 0) (+ a b))
      (else (l l (- nth 1) b (+ a b)))))))

; 这是真的演算 lambda
(lambda (nth a b)
  (cond
    ((= nth 0) (+ a b))
    (else (fibonacci-def (- n 1)))))

> fibonacci(999)
1.8412729310978296e+209

> fibonacci(9999)
RangeError: Maximum call stack size exceeded

(define Y                        
  (lambda (λ)                   
    ((lambda (f) (f f))        
     (lambda (f)              
       (λ (lambda (ϡ) (f f) ϡ))))))

#include "chinese.h"

无返回 misc();

noreturn 整数 main(整数 argc, 字符 数组(指向(argv))) 定义为
  打印("你好世界") 然后
  调用方法(misc) 然后 退出程序(0);
结束

函数 misc() 定义为
  无限循环 做
    打印("%c", 获取字符()) 然后
  完成
结束