代码搜索：PL 有哪些应用？
找到约 10,000 项符合「PL 有哪些应用？」的源代码
代码结果 10,000
www.eeworm.com/read/163399/10162858
pl a_lang.pl
##!/usr/bin/perl
#
# Schpati - Pre-Alpha of AndyChat v3.xx
# MODULE: Language
#
# Started on Saturday, 12th of February, 2000 around 3.00pm
#
# 21st of July, 2002
# - (4.14am) Changed code to shutdow
www.eeworm.com/read/163399/10162860
pl a_protocols.pl
##!/usr/bin/perl
#
# Schpati - Pre-Alpha of AndyChat v3.xx
# MODULE: Protocols
#
# 29th of April, 2000
# - (11.30pm) Added 'strict' flag to whichcontrol
#
# 28th of April, 2000
# - Moved IRC functions
www.eeworm.com/read/163337/10165783
pl gcd.pl
var x,y,rem;
begin
read(x);
while x #0 do
begin
read(y);
rem := 1;
while rem # 0 do
begin
rem:=x-y*(x/y);
x:=y;
y:=rem
end;
write(x);
read(x);
end;
end.
www.eeworm.com/read/163337/10165785
pl recursion.pl
CONST a = 10;
var b,c;
procedure p;
procedure q;
begin
read(b);
c:=c+1;
write(c);
if b#0 then
call p
end;
begin
read(b);
c:=c+1;
w
www.eeworm.com/read/163337/10165791
pl fibonacci.pl
const n=20;
var f1,f2,f,i;
begin
f1:=1;
f2:=1;
i:=1;
while i
www.eeworm.com/read/163337/10165798
pl prime.pl
const true=1,false=0;
var x,y,m,n,pf;
procedure prime;
var i,f;
procedure mod;
x:=x-x/y*y;
begin
f:=true;
i:= 3;
while i
www.eeworm.com/read/163337/10165808
pl test.pl
const a=10;
var b,c;
procedure p;
begin
c:=b+a
end;
begin
read(b);
while b#0 do
begin
call p; write(2*c); read(b)
end
end.
www.eeworm.com/read/163337/10165810
pl error.pl
const m=7,n=85
var x,y,z,q,r;
procedure multiply;
var a,b;
begin
a:=u;
b:=y;
z:=c
while b>0 do
begin
if odd b do
z:=z+a;
a:=2a;
b:=b/2;
end
end;
procedu
www.eeworm.com/read/163337/10165815
pl standard.pl
CONST a=10;
var b,c;
procedure p;
begin
c:=b+a
end;
begin
read(b);
while b#0 do
begin
call p;
write(2*c);
read(b)
end
end.
www.eeworm.com/read/163337/10165816
pl cock.pl
const z=0;
var head,foot,cock,rabbit,n;
begin
n:=z;
read(head,foot);
cock:=1;
while cock