10 lines
111 B
Racket
10 lines
111 B
Racket
#lang racket/base
|
|
(provide f)
|
|
(define (f x)
|
|
(* x x))
|
|
|
|
|
|
;; infinite loop
|
|
(letrec ([g (lambda () (g))])
|
|
(g))
|