tag:blogger.com,1999:blog-130534942024-09-29T08:46:06.050+03:00Lauri blogiLaurihttp://www.blogger.com/profile/00705740653107945481noreply@blogger.comBlogger2125tag:blogger.com,1999:blog-13053494.post-41806202229491035732008-03-15T06:57:00.026+02:002008-04-13T18:55:06.495+03:00Eesti isikukoodi valideerimine Lispis<style type="text/css">.symbol { color : #770055; background-color : transparent; border: 0px; margin: 0px;}
a.symbol:link { color : #229955; background-color : transparent; text-decoration: none; border: 0px; margin: 0px; }
a.symbol:active { color : #229955; background-color : transparent; text-decoration: none; border: 0px; margin: 0px; }
a.symbol:visited { color : #229955; background-color : transparent; text-decoration: none; border: 0px; margin: 0px; }
a.symbol:hover { color : #229955; background-color : transparent; text-decoration: none; border: 0px; margin: 0px; }
.special { color : #FF5000; background-color : inherit; }
.keyword { color : #770000; background-color : inherit; }
.comment { color : #007777; background-color : inherit; }
.string { color : #777777; background-color : inherit; }
.atom { color : #314F4F; background-color : inherit; }
.macro { color : #FF5000; background-color : inherit; }
.variable { color : #36648B; background-color : inherit; }
.function { color : #8B4789; background-color : inherit; }
.attribute { color : #FF5000; background-color : inherit; }
.character { color : #0055AA; background-color : inherit; }
.syntaxerror { color : #FF0000; background-color : inherit; }
span.paren1:hover { color : inherit; background-color : #BAFFFF; }
span.paren2:hover { color : inherit; background-color : #FFCACA; }
span.paren3:hover { color : inherit; background-color : #FFFFBA; }
span.paren4:hover { color : inherit; background-color : #CACAFF; }
span.paren5:hover { color : inherit; background-color : #CAFFCA; }
span.paren6:hover { color : inherit; background-color : #FFBAFF; }
.lisp-code { background-color: white; color: black; }
.lisp-code:hover { background-color: white; color: black; }
</style>
<p><a href="http://dukelupus.wordpress.com/">Dukelupus</a> <a href="http://dukelupus.wordpress.com/2008/03/11/eesti-isikukoodi-valideerimine/">kirjutas</a> isikukoodi valideerimisest <a href="http://en.wikipedia.org/wiki/.NET_Framework">.NET'is</a>.<br>
Võrdluseks sama kood kirjutatuna <a href="http://en.wikipedia.org/wiki/Common_Lisp">Lispis</a>:
<p><tt class="lisp-code"><span class="paren1">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/m_defun.htm" class="symbol"><i><span class="symbol">defun</span></i></a> number-to-digits <span class="paren2">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/t_number.htm" class="symbol">number</a></span>)</span><br> <span class="paren2">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/f_map.htm" class="symbol">map</a> '<a href="http://www.lispworks.com/reference/HyperSpec/Body/a_list.htm" class="symbol">list</a> #'<a href="http://www.lispworks.com/reference/HyperSpec/Body/f_digi_1.htm" class="symbol">digit-char-p</a> <span class="paren3">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/f_wr_to_.htm" class="symbol">princ-to-string</a> <a href="http://www.lispworks.com/reference/HyperSpec/Body/t_number.htm" class="symbol">number</a></span>)</span></span>)</span></span>)</span><br><br>
<span class="paren1">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/m_defun.htm" class="symbol"><i><span class="symbol">defun</span></i></a> digits-to-number <span class="paren2">(<span class="lisp-code">digits</span>)</span><br> <span class="paren2">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/f_parse_.htm" class="symbol">parse-integer</a> <span class="paren3">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/f_map.htm" class="symbol">map</a> '<a href="http://www.lispworks.com/reference/HyperSpec/Body/a_string.htm" class="symbol">string</a> #'<a href="http://www.lispworks.com/reference/HyperSpec/Body/f_digit_.htm" class="symbol">digit-char</a> digits</span>)</span></span>)</span></span>)</span><br><br>
<span class="paren1">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/m_defun.htm" class="symbol"><i><span class="symbol">defun</span></i></a> valid-birth-date <span class="paren2">(<span class="lisp-code">ik-digits</span>)</span><br> <span class="string">"Kontrollib kas tegu on korrektse kuupäevaga"</span><br> <span class="paren2">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/s_let_l.htm" class="symbol"><i><span class="symbol">let</span></i></a> <span class="paren3">(<span class="lisp-code"><span class="paren4">(<span class="lisp-code">sajand<br> <span class="paren5">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/m_case_.htm" class="symbol">case</a> <span class="paren6">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/f_firstc.htm" class="symbol">first</a> ik-digits</span>)</span><br> <span class="paren6">(<span class="lisp-code"><span class="paren1">(<span class="lisp-code">1 2</span>)</span> 1800</span>)</span><br> <span class="paren6">(<span class="lisp-code"><span class="paren1">(<span class="lisp-code">3 4</span>)</span> 1900</span>)</span><br> <span class="paren6">(<span class="lisp-code"><span class="paren1">(<span class="lisp-code">5 6</span>)</span> 2000</span>)</span></span>)</span></span>)</span></span>)</span><br> <span class="paren3">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/m_when_.htm" class="symbol">when</a> sajand<br> <span class="paren4">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/f_inte_1.htm" class="symbol">integerp</a><br> <span class="paren5">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/m_ignore.htm" class="symbol">ignore-errors</a><br> <span class="paren6">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/f_encode.htm" class="symbol">encode-universal-time</a><br> 0 0 0<br> <span class="paren1">(<span class="lisp-code">digits-to-number <span class="paren2">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/f_subseq.htm" class="symbol">subseq</a> ik-digits 5 7</span>)</span></span>)</span><br> <span class="paren1">(<span class="lisp-code">digits-to-number <span class="paren2">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/f_subseq.htm" class="symbol">subseq</a> ik-digits 3 5</span>)</span></span>)</span><br> <span class="paren1">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/a_pl.htm" class="symbol">+</a> sajand <span class="paren2">(<span class="lisp-code">digits-to-number <span class="paren3">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/f_subseq.htm" class="symbol">subseq</a> ik-digits 1 3</span>)</span></span>)</span></span>)</span><br> 0</span>)</span></span>)</span></span>)</span></span>)</span></span>)</span></span>)</span><br><br>
<span class="paren1">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/m_defun.htm" class="symbol"><i><span class="symbol">defun</span></i></a> checksum <span class="paren2">(<span class="lisp-code">ik-digits fn</span>)</span><br> <span class="paren2">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/a_mod.htm" class="symbol">mod</a><br> <span class="paren3">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/m_loop.htm" class="symbol"><i><span class="symbol">loop</span></i></a> for n from 1 to 10<br> sum <span class="paren4">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/a_st.htm" class="symbol">*</a> <span class="paren5">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/f_1pl_1_.htm" class="symbol">1+</a> <span class="paren6">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/a_mod.htm" class="symbol">mod</a> <span class="paren1">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/f_funcal.htm" class="symbol">funcall</a> fn n</span>)</span> 9</span>)</span></span>)</span><br> <span class="paren5">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/f_nth.htm" class="symbol">nth</a> <span class="paren6">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/f_1pl_1_.htm" class="symbol">1-</a> n</span>)</span> ik-digits</span>)</span></span>)</span></span>)</span><br> 11</span>)</span></span>)</span><br><br>
<span class="paren1">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/m_defun.htm" class="symbol"><i><span class="symbol">defun</span></i></a> valid-checksum <span class="paren2">(<span class="lisp-code">ik-digits</span>)</span><br> <span class="paren2">(<span class="lisp-code">= <span class="paren3">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/f_firstc.htm" class="symbol">first</a> <span class="paren4">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/f_last.htm" class="symbol">last</a> ik-digits</span>)</span></span>)</span> <span class="comment">;; kontrollnumber<br>
</span> <span class="paren3">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/s_let_l.htm" class="symbol"><i><span class="symbol">let</span></i></a> <span class="paren4">(<span class="lisp-code"><span class="paren5">(<span class="lisp-code">result <span class="paren6">(<span class="lisp-code">checksum ik-digits '<a href="http://www.lispworks.com/reference/HyperSpec/Body/f_1pl_1_.htm" class="symbol">1-</a></span>)</span></span>)</span></span>)</span><br> <span class="paren4">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/s_if.htm" class="symbol"><i><span class="symbol">if</span></i></a> <span class="paren5">(<span class="lisp-code">= 10 result</span>)</span><br> <span class="paren5">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/a_mod.htm" class="symbol">mod</a> <span class="paren6">(<span class="lisp-code">checksum ik-digits '<a href="http://www.lispworks.com/reference/HyperSpec/Body/f_1pl_1_.htm" class="symbol">1+</a></span>)</span> 10</span>)</span><br> result</span>)</span></span>)</span></span>)</span></span>)</span><br><br>
<span class="paren1">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/m_defun.htm" class="symbol"><i><span class="symbol">defun</span></i></a> valid-isikukood <span class="paren2">(<span class="lisp-code">isikukood</span>)</span><br> <span class="paren2">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/s_let_l.htm" class="symbol"><i><span class="symbol">let</span></i></a> <span class="paren3">(<span class="lisp-code"><span class="paren4">(<span class="lisp-code">ik-digits <span class="paren5">(<span class="lisp-code">number-to-digits isikukood</span>)</span></span>)</span></span>)</span><br> <span class="paren3">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/a_and.htm" class="symbol">and</a><br> <span class="paren4">(<span class="lisp-code">= <span class="paren5">(<span class="lisp-code"><a href="http://www.lispworks.com/reference/HyperSpec/Body/f_length.htm" class="symbol">length</a> ik-digits</span>)</span> 11</span>)</span> <span class="comment">;; peab sisaldama 11 numbrit<br>
</span> <span class="paren4">(<span class="lisp-code">valid-birth-date ik-digits</span>)</span><br> <span class="paren4">(<span class="lisp-code">valid-checksum ik-digits</span>)</span></span>)</span></span>)</span></span>)</span></tt>
<p><h3>Tulemused:</h3>
CL-USER 57 > (time (valid-isikukood 21107190012))<br>
Timing the evaluation of (VALID-ISIKUKOOD 21107190012)<br>
<br>
User time = 0.000<br>
System time = 0.000<br>
Elapsed time = 0.000<br>
Allocation = 300 bytes<br>
0 Page faults<br>
T<br>
<br>
CL-USER 58 > (time (valid-isikukood "21107190012"))<br>
Timing the evaluation of (VALID-ISIKUKOOD "21107190012")<br>
<br>
User time = 0.000<br>
System time = 0.000<br>
Elapsed time = 0.000<br>
Allocation = 288 bytes<br>
0 Page faults<br>
T<br>
<br>
CL-USER 59 > (time (valid-isikukood 21107190013))<br>
Timing the evaluation of (VALID-ISIKUKOOD 21107190013)<br>
<br>
User time = 0.000<br>
System time = 0.000<br>
Elapsed time = 0.000<br>
Allocation = 300 bytes<br>
0 Page faults<br>
NIL<br>
<br>
<br><p>Huvitav on see, et kui anda isikukood ette stringina siis võtab programm vähem mälu kui numbritega.<br><br><p>Seda koodi saab <a href="http://www.lispworks.com/downloads/index.html">Lispworksis</a> kasutada ka läbi graafilise liidese:
<p><tt class="lisp-code"><span class="paren1">(<span class="lisp-code">capi:prompt-for-integer<br> <span class="string">"Sisesta isikukood:"</span><br> <span class="keyword">:ok-check</span> 'valid-isikukood</span>)</span></tt>
<p>Tulemusena avaneb selline aken:<br>
<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://www.lo.pri.ee/ik.exe"><img style="cursor:pointer; cursor:hand;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-VmblGnUw9TXWQhyR7o034ADWu1qbn23XgSNl0T5_-vUiF5yt7wLLDFVQcFrxSfSrp05AlHeGOqghzQAhobrQyBuj0OsLEgSmG_nK6S1IocHOFnntDHZVU59Ui6PMzITyh6nR/s320/lw-isikukood.PNG" border="0" alt=""id="BLOGGER_PHOTO_ID_5178300487124548402" /></a><br>
Ok-nupp aktiveerub alles siis kui sisestatud on korrektne isikukood.Laurihttp://www.blogger.com/profile/00705740653107945481noreply@blogger.com0tag:blogger.com,1999:blog-13053494.post-1147249632135292112006-05-10T11:16:00.001+03:002008-03-15T15:18:01.975+02:00PLEAC<a href="http://pleac.sourceforge.net/">PLEAC project</a> - Programming Language Examples Alike Cookbook in various programming languages.Laurihttp://www.blogger.com/profile/00705740653107945481noreply@blogger.com0