Find first missing positive: Difference between revisions
Find first missing positive en True BASIC
(Find first missing positive en QBasic) |
(Find first missing positive en True BASIC) |
||
Line 905:
the smallest missing positive integer for [1]: 2
the smallest missing positive integer for []: 1</pre>
=={{header|True BASIC}}==
<lang qbasic>FUNCTION isin (n(), k)
FOR i = LBOUND(n) TO UBOUND(n)
IF n(i) = k THEN LET isin = 1
NEXT i
END FUNCTION
FUNCTION fmp (n())
LET j = 1
DO WHILE isin(n(), j) = 1
LET j = j + 1
LOOP
LET fmp = j
END FUNCTION
DIM a(3)
FOR x = 1 TO UBOUND(a)
READ a(x)
NEXT x
DIM b(4)
FOR x = 1 TO UBOUND(b)
READ b(x)
NEXT x
DIM c(5)
FOR x = 1 TO UBOUND(c)
READ c(x)
NEXT x
PRINT fmp(a())
PRINT fmp(b())
PRINT fmp(c())
DATA 1,2,0
DATA 3,4,-1,1
DATA 7,8,9,11,12
END</lang>
=={{header|Wren}}==
| |||