aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Extend-your-language/PARI-GP/extend-your-language-1.parigp Normal file
View file

@ -0,0 +1,7 @@
if2(c1,c2,tt,tf,ft,ff)={
if(c1,
if(c2,tt,tf)
,
if(c2,ft,ff)
)
};

14
Task/Extend-your-language/PARI-GP/extend-your-language-2.parigp Normal file
View file

@ -0,0 +1,14 @@
GEN
if2(GEN c1, GEN c2, GEN tt, GEN tf, GEN ft, GEN ff)
{
if (gequal0(c1))
if (gequal0(c2))
return ff ? closure_evalgen(ff) : gnil;
else
return ft ? closure_evalgen(ft) : gnil;
else
if (gequal0(c2))
return tf ? closure_evalgen(tf) : gnil;
else
return tt ? closure_evalgen(tt) : gnil;
}

2
Task/Extend-your-language/PARI-GP/extend-your-language-3.parigp Normal file
View file

@ -0,0 +1,2 @@
install("if2","GGDEDEDEDE","if2","./if2.gp.so");
addhelp(if2, "if2(a,b,{seq1},{seq2},{seq3},{seq4}): if a is nonzero and b is nonzero, seq1 is evaluated; if a is nonzero and b is zero, seq2 is evaluated; if a is zero and b is nonzero, seq3 is evaluated; otherwise seq4. seq1 through seq4 are optional.");

4
Task/Extend-your-language/PARI-GP/extend-your-language-4.parigp Normal file
View file

@ -0,0 +1,4 @@
/*
GP;install("if2","GGDEDEDEDE","if2","./if2.gp.so");
GP;addhelp(if2, "if2(a,b,{seq1},{seq2},{seq3},{seq4}): if a is nonzero and b is nonzero, seq1 is evaluated; if a is nonzero and b is zero, seq2 is evaluated; if a is zero and b is nonzero, seq3 is evaluated; otherwise seq4. seq1 through seq4 are optional.");
*/