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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Power-set/Refal/power-set.refal Normal file
View file

@ -0,0 +1,15 @@
$ENTRY Go {
= <Prout '[A B C D]:' <Powerset A B C D>>
<Prout '[]:' <Powerset>>
<Prout '[()]:' <Powerset ()>>;
};
Powerset {
= ();
e.X t.I, <Powerset e.X>: e.F = e.F <Append t.I e.F>;
};
Append {
t.I = ;
t.I (e.X) e.Y = (e.X t.I) <Append t.I e.Y>;
};