RosettaCodeData/Task/Twos-complement/Yabasic/twos-complement.basic

17 lines
182 B
Text
Raw Permalink Normal View History

2024-10-16 18:07:41 -07:00
d = 1234567
dim b(8)
b(0) = -d
b(1) = -d+1
b(2) = -2
b(3) = -1
b(4) = 0
b(5) = 1
b(6) = 2
b(7) = d-2
b(8) = d-1
for i = 0 to arraysize(b(), 1)
2026-04-30 12:34:36 -04:00
print b(i), " -> ", -b(i)
2024-10-16 18:07:41 -07:00
next i