Mosaic matrix: Difference between revisions

;Task:

Draw a 'mosaic' matrix which, for the purposes of this task, is a square matrix which has 1's in alternate cells (both horizontally and vertically) starting with a 1 in the top-left hand cell.

[http://keptarhely.eu/view.php?file=20220218v00xf1rfh.jpeg Mosaic Matrix - image]

<br>

 

=={{header|Ada}}==

with Ada.Command_Line;

 

Put_Line ("Usage: ./mosaic_matrix <side-length>");

 

 

{{out}}

 

=={{header|ALGOL 68}}==

# alternating with another character vertically and horiontally #

# draws a mosaic matrix with height and width = n using "1" and "." #

PROC draw mosaic = ( INT n )VOID:

# test the draw mosaic procedure #

draw mosaic( 10 );

print( ( newline ) );

draw mosaic( 11 )

{{out}}

<pre>

1 . 1 . 1 . 1 . 1 . 1

</pre>

=={{header|AWK}}==

# syntax: GAWK -f MOSAIC_MATRIX.AWK

BEGIN {

exit(0)

}

{{out}}

<pre>

1 0 1 0 1 0 1

</pre>

 

=={{header|C}}==

 

void mosaicMatrix(unsigned int n) {

mosaicMatrix(11);

return 0;

{{out}}

<pre>

 

=={{header|C++}}==

#include <iostream>

 

}

 

{{out}}

<pre> 1 0 1 0 1 0 1 0

0 1 0 1 0 1 0 1 0

1 0 1 0 1 0 1 0 1

</pre>

 

=={{header|F_Sharp|F#}}==

// Mosaic matrix. Nigel Galloway: February 18th., 2022

let m11 m=Array2D.init m m (fun n g->if (n+g)%2=0 then 1 else 0)

printfn "%A\n\n%A" (m11 5) (m11 6)

{{out}}

<pre>

</pre>

 

 

=={{header|FreeBASIC}}==

===Text based===

For i As Integer = 1 To n

For j As Integer = 1 To n

 

mosaicMatrix(9)

{{out}}

<pre>1 . 1 . 1 . 1 . 1

 

===Graphical===

Screenres size, size, 24

Cls

Next x

Bsave "mosaic_matrix.bmp",0

{{out}}

https://www.dropbox.com/s/nbxrttz0j99usos/mosaic_matrix.bmp?dl=0

 

=={{header|Go}}==

 

import "fmt"

fmt.Println()

mosaicMatrix(8)

 

{{out}}

</pre>

 

 

 

 

1 0 1 0

0 1 0 1

1 0 1 0 1

0 1 0 1 0

 

=={{header|jq}}==

{{works with|jq}}

'''Works with gojq, the Go implementation of jq'''

[range(0;.) | . % 2] as $one

| [range(0;.) | (. + 1) % 2] as $two

'''Example''':

map(join(" ")) | join("\n");

 

{{out}}

<pre>

 

=={{header|Julia}}==

mosaicmat (generic function with 1 method)

 

0 1 0 1 0

1 0 1 0 1

 

=={{header|Perl}}==

use warnings;

use feature 'say';

 

my $n = 5;

{{out}}

<pre>1 0 1 0 1

=={{header|Phix}}==

See [[Matrix_with_two_diagonals#GUI.2Fonline|Matrix_with_two_diagonals#Phix]] and press 'M'.

 

=={{header|Python}}==

===Procedural===

for Row in range(size):

for Col in range(size):

else:

print("0", end=" ")

Output:

<br>

===Functional===

No need for nested conditionals here.

 

def mosaic(n):

'''Grid of alternating ones and zeroes,

' '.join([str(x) for x in y]) for y in rows

])

 

# MAIN ---

if __name__ == '__main__':

{{Out}}

<pre>1 0 1 0 1 0 1

1 0 1 0 1 0 1 0

0 1 0 1 0 1 0 1</pre>

 

=={{header|Raku}}==

This isn't a matrix, especially if it is supposed to be graphical; it's a very small (or extremely low resolution) bitmap.

 

.put for checker 7;

put '';

{{out}}

<pre>1 0 1 0 1 0 1

 

=={{header|Red}}==

 

mosaic: function [size][

]

 

{{out}}

Similar to graphical Wren entry

 

=={{header|Ring}}==

# Project : Mosaic matrix

# Date : 2022/18/02

next

next

Output image:

<br>

[http://keptarhely.eu/view.php?file=20220218v00xf1rfh.jpeg Mosaic Matrix]

 

=={{header|Wren}}==

===Text based===

for (i in 0...n) {

for (j in 0...n) {

}

 

 

{{out}}

{{libheader|DOME}}

{{libheader|Go-fonts}}

import "graphics" for Canvas, Color, Font, ImageData

 

}

 

 

{{out}}

 

=={{header|XPL0}}==

int S, I, J;

[for I:= 0 to S-1 do

[DrawMat(6); CrLf(0);

DrawMat(7); CrLf(0);

 

{{out}}