Data update
This commit is contained in:
parent
ed705008a8
commit
0df55f9f24
2196 changed files with 32999 additions and 3075 deletions
15
Task/Binary-digits/Refal/binary-digits.refal
Normal file
15
Task/Binary-digits/Refal/binary-digits.refal
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
$ENTRY Go {
|
||||
= <Prout <Binary 5>
|
||||
<Binary 50>
|
||||
<Binary 9000>>;
|
||||
};
|
||||
|
||||
Binary {
|
||||
0 = '0\n';
|
||||
s.N = <Binary1 s.N> '\n';
|
||||
};
|
||||
|
||||
Binary1 {
|
||||
0 = ;
|
||||
s.N, <Divmod s.N 2>: (s.R) s.D = <Binary1 s.R> <Symb s.D>;
|
||||
};
|
||||
Loading…
Add table
Add a link
Reference in a new issue