Mosaic matrix: Difference between revisions

 

=={{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 "." #

print( ( newline ) );

draw mosaic( 11 )

{{out}}

<pre>

=={{header|Arturo}}==

 

loop 1..side 'x ->

print map 1..side 'y [

drawSquare 6

print ""

 

{{out}}

 

=={{header|AutoHotkey}}==

result .= "Matrix Size: " v "*" v "`n" matrix2txt(mosaicMatrix(v)) "`n"

MsgBox % result

}

return result

{{out}}

<pre>Matrix Size: 8*8

 

=={{header|AWK}}==

# syntax: GAWK -f MOSAIC_MATRIX.AWK

BEGIN {

exit(0)

}

{{out}}

<pre>

 

=={{header|C}}==

 

void mosaicMatrix(unsigned int n) {

mosaicMatrix(11);

return 0;

 

{{out}}

 

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

#include <iostream>

 

}

 

{{out}}

<pre> 1 0 1 0 1 0 1 0

 

=={{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>

=={{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}}

 

=={{header|Haskell}}==

 

mosaic :: Int -> Matrix Int

 

main :: IO ()

{{Out}}

<pre>┌ ┐

 

Implementation:

 

Examples:

 

1 0 1 0

0 1 0 1

1 0 1 0 1

0 1 0 1 0

 

=={{header|JavaScript}}==

"use strict";

 

// main

return main();

{{Out}}

<pre>1 0 1 0 1 0 1

{{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|Pascal}}==

 

const

begin

printMosaicMatrix(9)

{{out}}

1⋅1⋅1⋅1⋅1

 

=={{header|Perl}}==

use warnings;

use feature 'say';

 

my $n = 5;

{{out}}

<pre>1 0 1 0 1

=={{header|Picat}}==

===Imperative===

N = 6,

A = new_array(N,N),

end,

println(A[I].to_list.join(" "))

 

{{out}}

 

===List comprehension===

N=11,

 

{{out}}

 

=={{header|Processing}}==

//Aamrun, 27th June 2022

 

}

}

 

=={{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.

 

 

# MAIN ---

if __name__ == '__main__':

{{Out}}

<pre>1 0 1 0 1 0 1

=={{header|Quackery}}==

 

 

[ dip [ temp put [] ]

9 mosaic

witheach

 

{{out}}

=={{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>

 

=={{header|Sidef}}==

n.of {|k|

var(a,b) = (k.is_even ? (1,0) : (0,1))

 

mosaic_matrix(5).each { .join(' ').say }; say ''

{{out}}

<pre>

=={{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}}