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

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Task/Middle-three-digits/Aime/middle-three-digits.aime
View file

@ -4,18 +4,15 @@ m3(integer i)
text s;
s = itoa(i);
if (character(s, 0) == '-') {
if (s[0] == '-') {
s = delete(s, 0);
}
if (length(s) < 3) {
if (~s < 3) {
v_integer(i);
v_text(" has not enough digits\n");
} elif (length(s) & 1) {
o_winteger(9, i);
o_text(": ");
o_text(cut(s, length(s) - 3 >> 1, 3));
o_byte('\n');
} elif (~s & 1) {
o_form("/w9/: ~\n", i, cut(s, ~s - 3 >> 1, 3));
} else {
v_integer(i);
v_text(" has an even number of digits\n");