Be concise.
Be useful.
All contributions dictatorially edited by webmasters to match personal tastes.
Please do not paste any copyright violating material.
Please try to avoid dependencies to third-party libraries and frameworks.
Outer_loop: for A in M'Range (1) loop Inner_Loop: for B in M'Range (2) loop if M (A, B) < 0 then Put_Line (M (A, B)'Image); exit Outer_Loop; end if; end loop Inner_Loop; end loop Outer_Loop;
(loop [rows m] (if-let [v (some #(when (neg? %) %) (first rows))] v (recur (rest rows))))
auto indices = findNegativeValue (m, 10, 20); std::cout << m[indices.first][indices.second] << '\n'; std::pair<int, int> findNegativeValue (int **m, int rows, int columns) { for (int i = 0; i < rows; ++i) { for (int j = 0; j < columns; ++j) { if (m[i][j] < 0) return make_pair (i, j); } } throw "No negative value!"; }
bool keepLooping = true; for(int i = 0; i < m.length && keepLooping; i++) { for(int j = 0; j < m[i].length && keepLooping; j++) { if(m[i][j] < 0) { Console.WriteLine(m[i][j]); keepLooping = false; } } }
OUTER: for (var i = 0; i < m.length; i++) { for (var j = 0; j < m[i].length; j++) { if (m[i][j] < 0) { print("Negative value found at $i,$j: ${m[i][j]}"); break OUTER; } } }
find_negative_in([]) -> undefined; find_negative_in([Row|Rows]) -> find_negative_in(Row, Rows). find_negative_in([], Rows) -> find_negative_in(Rows); find_negative_in([Pos|Values], Rows) when Pos >= 0 -> find_negative_in(Values, Rows); find_negative_in([Neg|_], _) -> Neg.
outer: do j=1, size(m,2) do i=1, size(m,1) v = m(i,j) if (v < 0) then print *,v exit outer end if end do end do outer
mainloop: for i, line := range m { for _, v := range line { if v < 0 { fmt.Println(v) break mainloop } } }
(print . head . filter (<0) . concat) m
OUTER: for (var i in m) { for (var j in m[i]) { if (m[i][j] < 0) { console.log("Negative value found: "+m[i][j]); break OUTER; } } }
mainloop: for(int i=0;i<m.length;i++) for(int j=0;j<m[i].length;j++) if(m[i][j]<0){ System.out.println(m[i][j]); break mainloop; }
loop@ for (x in 0..7) { for (y in 0..7) { val v = m[x][y] if ( v < 0) { println("found a negative value at [$x][$y]: $v") break@loop } } }
(loop named outer for i below (array-dimension m 0) do (loop for j below (array-dimension m 1) for v = (aref m i j) when (minusp v) do (progn (print v) (return-from outer))))
breakout = false for i,v1 in ipairs(m) do for j,v2 in ipairs(v1) do if v2 < 0 then print(v2) state = "found" breakout = true break end end if breakout then break end end
[m enumerateObjectsUsingBlock:^(NSArray *row, NSUInteger rn, BOOL *stopr) { [row enumerateObjectsUsingBlock:^(NSNumber *v, NSUInteger cn, BOOL *stopc) { if (v.intValue<0) { NSLog(@"found %@ at row:%lu col:%lu",v,rn,cn); *stopr=*stopc=YES; return; // to quit the current block immediately } }]; }];
for ($y = 0; $y < count($m); $y++) { for ($x = 0; $x < count($m[$y]); $x++) { if ($m[$y][$x] == $v) { break 2; } } }
var i,j: integer; flag:boolean; [...] for i := 0 to length(m) * length(m[0]) - 1 do begin v := m[i mod length(m), i div length(m)]; if v < 0 then begin writeln(v); break; end; end; for i := 0 to high(m) do begin for v in m[i] do begin flag := (v < 0); if flag then begin writeln(v); break; end; end; if flag then break; end;
OUTER: for my $row (@m) { INNER: for my $v (@$row) { if ($v < 0) { print "Negative value found: $v\n"; last OUTER; } } }
class BreakOuterLoop (Exception): pass try: position = None for row in m: for column in m[row]: if m[row][column] == v: position = (row, column) raise BreakOuterLoop except BreakOuterLoop: pass
def loop_breaking(m, v): for i, row in enumerate(m): for j, value in enumerate(row): if value == v: return (i, j) return None print(loop_breaking(([1,2,3],[4,5,6],[7,8,9]), 6))
negative_value = catch :negative do matrix.each do |row| row.each do |value| throw :negative, value if value < 0 end end end puts negative_value
'outer: for v in m { 'inner: for i in v { if i < 0 { println!("Found {}", i); break 'outer; } } }