63 lines
No EOL
3.3 KiB
HTML
63 lines
No EOL
3.3 KiB
HTML
<!DOCTYPE html>
|
|
<html>
|
|
<head>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
|
<title>CLiki: Robert Church</title>
|
|
<link rel="alternate" type="application/atom+xml" title="ATOM feed of edits to current article"
|
|
href="https://www.cliki.net/site/feed/article.atom?title=Robert%20Church">
|
|
<link rel="stylesheet" href="static/css/style.css">
|
|
<link rel="stylesheet" href="static/css/colorize.css">
|
|
</head>
|
|
|
|
<body>
|
|
<span class="hidden">CLiki - Robert Church</span>
|
|
<div id="content"><div id="content-area"><div id="article-title">Robert Church</div><div id="article">Describe <a href="Robert Church.html" class="internal">Robert Church</a> here<p>He is a <a href="Person.html" class="category">Person</a>. He's kind of new to <a href="Lisp.html" class="internal">Lisp</a>, so he hangs out in #lisp a lot.<p>This is a utility he wrote:<p><pre>
|
|
(defconstant +MAGICCONST+ (/ (* 4 (exp 0.5)) (sqrt 2.0)))
|
|
|
|
(defun random-normalvariate (mean stddev)
|
|
(let* ((u1 (random 1.0))
|
|
(u2 (random 1.0))
|
|
(z (/ (* +MAGICCONST+ (- u1 0.5)) u2))
|
|
(zz (/ (* z z) 4.0)))
|
|
(if (<= zz (- (log u2)))
|
|
(+ mean (* z stddev))
|
|
(random-normalvariate mean stddev))))
|
|
</pre>
|
|
</div></div>
|
|
<div id="footer" class="buttonbar"><ul><li><a href="Robert Church.html">Current version</a></li>
|
|
<li><a href="https://www.cliki.net/site/history?article=Robert%20Church">History</a></li>
|
|
<li><a href="https://www.cliki.net/site/backlinks?article=Robert%20Church">Backlinks</a></li><li><a href="https://www.cliki.net/site/edit-article?title=Robert%20Church&from-revision=3219188085">Edit</a></li><li><a href="https://www.cliki.net/site/edit-article?create=t">Create</a></li></ul></div>
|
|
</div>
|
|
<div id="header-buttons" class="buttonbar">
|
|
<ul>
|
|
<li><a href="https://www.cliki.net/">Home</a></li>
|
|
<li><a href="https://www.cliki.net/site/recent-changes">Recent Changes</a></li>
|
|
<li><a href="CLiki.html">About</a></li>
|
|
<li><a href="Text Formatting.html">Text Formatting</a></li>
|
|
<li><a href="https://www.cliki.net/site/tools">Tools</a></li>
|
|
</ul>
|
|
<div id="search">
|
|
<form action="https://www.cliki.net/site/search">
|
|
<label for="search_query" class="hidden">Search CLiki</label>
|
|
<input type="text" name="query" id="search_query" value="" />
|
|
<input type="submit" value="search" />
|
|
</form>
|
|
</div>
|
|
</div>
|
|
<div id="pageheader">
|
|
<div id="header">
|
|
<span id="logo">CLiki</span>
|
|
<span id="slogan">the common lisp wiki</span>
|
|
<div id="login"><form method="post" action="https://www.cliki.net/site/login">
|
|
<label for="login_name" class="hidden">Account name</label>
|
|
<input type="text" name="name" id="login_name" class="login_input" />
|
|
<label for= "login_password" class="hidden">Password</label>
|
|
<input type="password" name="password" id="login_password" class="login_input" />
|
|
<input type="submit" name="login" value="login" id="login_submit" /><br />
|
|
<div id="register"><a href="https://www.cliki.net/site/register">register</a></div>
|
|
<input type="submit" name="reset-pw" value="reset password" id="reset_pw" />
|
|
</form>
|
|
</div>
|
|
</div>
|
|
</div>
|
|
</body></html> |