(* Last line should not loop, even in the presence of eta-expansion in the *)
(* printing mechanism *)
(* Expected time < 1.00s *)
Notation "'bind' x <- y ; z" :=(y (fun x => z)) (at level 99, x at
level 0, y at level 0,format "'[hv' 'bind' x <- y ; '/' z ']'").
Definition f (g : (nat -> nat) -> nat) := g (fun x => 0).
Time Check (fun g => f g).
¤ Dauer der Verarbeitung: 0.16 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|