uni-days/UPC
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

1sem, 7 work in octave

Browse source
This commit is contained in:
Andrew 2020-01-11 13:11:02 +07:00
parent 3038462693
commit b68323cca1
5 changed files with 127 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
1sem/octave/07/main.m Normal file
View file

@ -0,0 +1,17 @@
# 33 - additive - 4
len = 4;
outf = fopen('results.txt', 'w');
fprintf(outf, 'dk %d\n', len);
maxn = 2^(len - 1) - 1;
for n = randi([-maxn maxn], 1, 100)
nstr = print_num_code(n, len);
nback = read_num_code(nstr);
fprintf(outf, '%d %s\n', n, nstr);
if nback ~= n
error("`%d` not equal to `%d` (converted from `%s`)\n", n, nback, nstr);
end
end
fclose(outf);