<?xml version="1.0" encoding="utf-8" standalone="no"?><?xml-stylesheet href="/mathmlc2p.xsl" type="text/xsl"?><html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>frege</title>
</head>
<body>
<tt>
// Requires : <a href="mvn:org.frege-lang/frege-interpreter-core/1.2">org.frege-lang#frege-interpreter-core;1.2</a><br/>
<br/>
import frege.prelude.Math (cos)<br/>
<br/>
cosines = iterate cos 1.0<br/>
pairsOf xs = zip xs (tail xs)<br/>
head [ x | (x,y) &lt;- pairsOf cosines, x == y]<br/>
0.7390851332151607<br/>
</tt>
</body>
</html>
