Hjälp med att identifiera programmeringsspråk [LÖST]
Postat: 28 nov 2009, 18:14
Kod: Markera allt
; Calculation for e 1000 digits
;
; Author Eiichi Wada
; Date written about 1958
;
; No subroutines are used.
; % pc1 e.pc1 (execution command)
70:
it,
jl80,
it,
jl100,
it,
jl180,
0,
80:
a280,
x5r,
p274,
x7r,
s275,
z,
l35,
tl,
p7r,
a280,
jl3r,
100:
a280,
x3r,
pl290,
zl,
sl288,
tl292,
sl288,
tl294,
sl288,
tl296,
vl294,
ll34,
vl292,
ll35,
vl290,
ll34,
tl298,
it,
jl160,
pl296,
al288,
vl294,
ll35,
al288,
vl292,
ll35,
al288,
vl290,
ll33,
al300,
tl300,
it,
jl140,
pl296,
sl288,
tl290,
jl3r,
140:
a280,
x6r,
p274,
x7r,
x9r,
s275,
z,
ql,
dl298,
tl,
p7r,
a280,
jl3r,
160:
a280,
x7r,
q272,
p274,
x8r,
x11r,
s275,
z,
ql,
r33,
ll33,
tl,
p8r,
a280,
jl4r,
180:
a280,
x25r,
p276,
tllt,
s19r,
tllt,
p278,
x281,
p279,
x282,
z18r,
it,
jl220,
it,
jl240,
p282,
s289,
jl9r,
p280,
l12,
tllt,
l2,
tllt,
p281,
s289,
z,
x281,
p280,
l13,
tllt,
tllt,
jl8r,
220:
a280,
x7r,
q288,
p276,
x8r,
x12r,
s277,
z,
pl,
wl284,
tl28,
ql28,
tl,
p8r,
s280,
jl4r,
240:
a280,
x5r,
ql28,
p278,
x283,
z,
l18,
dl286,
l18,
a13r,
x11r,
p,
tllt,
q274,
vl272,
p283,
s280,
jl4r,
272:
,
10,
229676,
233972,
197106,
172332,
135188,
217093,
245762,
180224,
143360,
184320,
38146,
254976,
3814,
182784,
0,
1,
0,
460,
jl70.
), LISP ser ut typ så här:
