代码搜索：如何学习 PL？
找到约 10,000 项符合「如何学习 PL？」的源代码
代码结果 10,000
www.eeworm.com/read/163399/10162834
pl a_logo.pl
##!/usr/bin/perl
#
# Schpati - Pre-Alpha of AndyChat v3.xx
# MODULE: Logo
#
# Started on Thursday, 10th of February, 2000 around 12.30pm
#
# 13th of February, 2000
# - (4.33pm) Optimized DrawLogo to
www.eeworm.com/read/163399/10162850
pl a_screen.pl
##!/usr/bin/perl
#
# Schpati - Pre-Alpha of AndyChat v3.xx
# MODULE: Screen
#
# Started on Friday, 24th of March, 2000 around 2pm
#
# 24th of March, 2000
# - (2.02pm) Initial Porting :)
# - (2.14pm)
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