diff options
| author | HVukman <peterslopp@googlemail.com> | 2025-09-07 21:24:14 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-09-07 21:24:14 +0200 |
| commit | 360a7e69a75f20af44d0becd53f3c6f6e61de149 (patch) | |
| tree | 1847c5fb9ec666f38babd13bfdcb83ef585c15dc | |
| parent | 7ddfbd02b89c453f8f84727132d2d57eeec8a36e (diff) | |
| download | perlweeklychallenge-club-360a7e69a75f20af44d0becd53f3c6f6e61de149.tar.gz perlweeklychallenge-club-360a7e69a75f20af44d0becd53f3c6f6e61de149.tar.bz2 perlweeklychallenge-club-360a7e69a75f20af44d0becd53f3c6f6e61de149.zip | |
Create 337_p2.lua
| -rw-r--r-- | challenge-337/hvukman/lua/337_p2.lua | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/challenge-337/hvukman/lua/337_p2.lua b/challenge-337/hvukman/lua/337_p2.lua new file mode 100644 index 0000000000..4a04e36647 --- /dev/null +++ b/challenge-337/hvukman/lua/337_p2.lua @@ -0,0 +1,41 @@ +function oddmatrix(row,col,locs) + + local mat = {} + for i=1,row do + mat[i]={} + for j=1,col do + mat[i][j]=0 + end + end + + for i,v in ipairs(locs) do + + -- apply to rows + for k=1,col do + mat[v[1]+1][k]=mat[v[1]+1][k]+1 + end + -- apply to cols + for l=1,row do + mat[l][v[2]+1] = mat[l][v[2]+1]+1 + end + + end + + + local odds=0 + + for i=1,row do + for j=1,col do + if mat[i][j]%2~=0 then + odds = odds + 1 + end + end + end + print("odds ", odds) +end + +oddmatrix(2,3,{{0,1},{1,1}}) +oddmatrix(2,2,{{1,1},{0,0}}) +oddmatrix(3,3,{{0,0},{1,2},{2,1}}) +oddmatrix(1,5,{{0,2},{0,4}}) +oddmatrix(4,2,{{1,0},{3,1},{2,0},{0,1}}) |
