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))))-1 OR 5*5=25 -- 555555555555555bool 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;
}
}
}555555555 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 outer555555(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;
}
}
}555555555loop@ 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))))555555555for _,v1 in ipairs(m) do
for _,v2 in ipairs(v1) do
if v2<0 then
print(v2)
goto outer
end
end
end
::outer::[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
}
}];
}];
555555555var 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;
}
}
}555555555index = 0
length = len(m)
while index != length:
for v in m[index]:
if v < 0:
print(v)
index = length - 1
break
index += 1for array in m:
i = filter(lambda n: n < 0, array)
if v := next(i, None):
print(v)
breakdef 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))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:
passnegative_value = catch :negative do
matrix.each do |row|
row.each do |value|
throw :negative, value if value < 0
end
end
end
puts negative_value| negativeValue |
negativeValue := [ :matrix || ctx |
ctx := thisContext sender.
matrix do: [ :row |
row do: [ :value |
(value < 0) ifTrue: [ ctx resumeWith: value ].
]
]
] value: m. "ex. m := #((1 2 -1 3))"
Transcript show: negativeValue; cr.