AN ALMOST COMPILABLE palindrome, inspired by the movie ‘Lovers of the Arctic Circle’.
<br /> type ‘a elbatum = ‘a ;;<br /> type lol = bool ;;<br /> type pop = int ;;<br /> type b = { mutable lol : lol elbatum } ;;<br /> type i = { mutable pop : pop elbatum } ;;<br />
<br /> fun erongi lol pop n -><br /> pop.lol <- let nuf =<br /> erongi;fun erongi lol pop n -> pop.lol ; ignore<br /> n in<br /> erongi ; lol.pop <- n pop lol ignore nuf ; ignore<br /> = fun tel -> lol.pop<br /> <- n pop lol ignore nuf<br /> ;;<br />
<br /> #include<br /> <math.h> #include <sys/time.h><br /> #include <X11/Xlib.h><br /> #include <X11/keysym.h><br /> double L ,o ,P<br /> ,_=dt,T,Z,D=1,d,<br /> s[999],E,h= 8,I,<br /> J,K,w[999],M,m,O<br /> ,n[999],j=33e-3,i=<br /> 1E3,r,t, u,v ,W,S=<br /> 74.5,l=221,X=7.26,<br /> a,B,A=32.2,c, F,H;<br /> int N,q, C, y,p,U;<br /> Window z; char f[52]<br /> ; GC k; main(){ Display*e=<br /> XOpenDisplay( 0); z=RootWindow(e,0); for (XSetForeground(e,k=XCreateGC (e,z,0,0),BlackPixel(e,0))<br /> ; scanf(“%lf%lf%lf”,y +n,w+y, y+s)+1; y ++); XSelectInput(e,z= XCreateSimpleWindow(e,z,0,0,400,400,<br /> 0,0,WhitePixel(e,0) ),KeyPressMask); for(XMapWindow(e,z); ; T=sin(O)){ struct timeval G={ 0,dt*1e6}<br /> ; K= cos(j); N=1e4; M+= H*_; Z=D*K; F+=_*P; r=E*K; W=cos( O); m=K*W; H=K*T; O+=D*_*F/ K+d/K*E*_; B=<br /> sin(j); a=B*T*D-E*W; XClearWindow(e,z); t=T*E+ D*B*W; j+=d*_*D-_*F*E; P=W*E*B-T*D; for (o+=(I=D*W+E<br /> *T*B,E*d/K *B+v+B/K*F*D)*_; p<y; ){ T=p[s]+i; E=c-p[w]; D=n[p]-L; K=D*m-B*T-H*E; if(p [n]+w[ p]+p[s<br /> ]== 0|K <fabs(W=T*r-I*E +D*P) |fabs(D=t *D+Z *T-a *E)> K)N=1e4; else{ q=W/K *4E2+2e2; C= 2E2+4e2/ K<br /> *D; N-1E4&& XDrawLine(e ,z,k,N ,U,q,C); N=q; U=C; } ++p; } L+=_* (X*t +P*M+m*l); T=X*X+ l*l+M *M;<br /> XDrawString(e,z,k ,20,380,f,17); D=v/l*15; i+=(B *l-M*r -X*Z)*_; for(; XPending(e); u *=CS!=N){<br /> XEvent z; XNextEvent(e ,&z);<br /> ++*((N=XLookupKeysym<br /> (&z.xkey,0))-IT?<br /> N-LT? UP-N?& E:&<br /> J:& u: &h); –*(<br /> DN -N? N-DT ?N==<br /> RT?&u: & W:&h:&J<br /> ); } m=15*F/l;<br /> c+=(I=M/ l,l*H<br /> +I*M+a*X)*_; H<br /> =A*r+v*X-F*l+(<br /> E=.1+X*4.9/l,t<br /> =T*m/32-I*T/24<br /> )/S; K=F*M+(<br /> h* 1e4/l-(T+<br /> E*5*T*E)/3e2<br /> )/S-X*d-B*A;<br /> a=2.63 /l*d;<br /> X+=( d*l-T/S<br /> *(.19*E +a<br /> *.64+J/1e3<br /> )-M* v +A*<br /> Z)*_; l +=<br /> K *_; W=d;<br /> sprintf(f,<br /> “%5d %3d”<br /> “%7d”,p =l<br /> /1.7,(C=9E3+<br /> O*57.3)%0550,(int)i); d+=T*(.45-14/l*<br /> X-a*130-J* .14)*_/125e2+F*_*v; P=(T*(47<br /> *I-m* 52+E*94 *D-t*.38+u*.21*E) /1e2+W*<br /> 179*v)/2312; select(p=0,0,0,0,&G); v-=(<br /> W*F-T*(.63*m-I*.086+m*E*19-D*25-.11*u<br /> )/107e2)*_; D=cos(o); E=sin(o); } }<br />
copy the code to notepad to get started!
One Comment on “a line-by-line palindrome – Objective Caml – C – F#, JoCaml, MetaOCaml, OcamlP3l – pYtHoN”
copy the code to notepad to get started!
Leave a Reply