= Man Boy Test =
{{{~cpp
   begin real procedure A(k, x1, x2, x3, x4, x5);
     value k; integer k;
     begin real procedure B;
       begin k := k - 1;
             B := A := A(k, B, x1, x2, x3, x4)
       end;
       if k <= 0 then A := x4 + x5 else B
     end;
   end;
   outreal(A(10, 1, -1, -1, 1, 0));
}}}
Donald Knuth 가 Algol 60의 구현 정도를 판변하기위해서 만든 프로그램. 테스트의 목적은 올바르게 구현된 scoping rule, call-by-name의 구현 정도를 판별해서 boys(algol 60 구현물)들중에서 men (쓸만한 놈)을 가려내는 용도로 고안되었습니다.

----
[CompilerTheory]