Four sides of square: Difference between revisions

 

=={{header|Ada}}==

with Ada.Command_Line;

 

when others =>

Ada.Text_Io.Put_Line ("Usage: ./four_sides <length>");

{{out}}

<pre>

 

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

# draws a matrix with height and width = n with 1s on the edges #

PROC draw square = ( INT n )VOID:

draw square( 7 )

END

{{out}}

<pre>

=={{header|Arturo}}==

 

loop 1..side 'x ->

print map 1..side 'y [

drawSquare 4

print ""

 

{{out}}

 

=={{header|AWK}}==

# syntax: GAWK -f FOUR_SIDES_OF_SQUARE.AWK

BEGIN {

exit(0)

}

{{out}}

<pre>

 

=={{header|C}}==

 

void hollowMatrix(unsigned int n) {

hollowMatrix(11);

return 0;

 

{{out}}

 

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

#include <iostream>

 

}

 

{{out}}

<pre> 1 1 1 1 1 1 1 1

 

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

// Four sides of square. Nigel Galloway: February 18th., 2022

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

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

{{out}}

<pre>

=={{header|FreeBASIC}}==

===Text based===

For i As Integer = 0 To n

For j As Integer = 0 To n

 

hollowMatrix(9)

{{out}}

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

 

===Graphical===

Screenres size, size, 24

Cls

Next x

Bsave "hollowMatrix.bmp",0

{{out}}

https://www.dropbox.com/s/9g5ahfzw1muuzgm/hollowMatrix.bmp?dl=0

 

=={{header|Go}}==

 

import "fmt"

fmt.Println()

hollowMatrix(9)

 

{{out}}

 

=={{header|Haskell}}==

import Data.List.Split (chunksOf)

import System.Environment (getArgs)

main = do

sizes <- map read <$> getArgs

{{out}}

<pre>

 

Implementation:

 

Some examples:

 

fsosq 1

1

1 0 0 0 0 0 0 0 0 1

1 0 0 0 0 0 0 0 0 1

 

Gui examples are not visible here, but, for example:

viewmat fsosq 20

 

=={{header|jq}}==

{{works with|jq}}

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

[range(0; .) | 1] as $top

| [1, (range(0; .-2) | 0), 1] as $two

 

def display:

'''Example''':

{{out}}

<pre>

=={{header|Julia}}==

Gtk graphical version.

 

function set_gtk_style!(widget::Gtk.GtkWidget, style::String, value::Int)

 

squareonesapp(8)

 

=={{header|Mathematica}}/{{header|Wolfram Language}}==

 

=={{header|Perl}}==

use warnings;

use feature 'say';

 

my $n = 5;

{{out}}

<pre>1 1 1 1 1

 

=={{header|Processing}}==

//Aamrun, 27th June 2022

 

}

}

 

=={{header|Python}}==

===Procedural===

for row in range(size):

for col in range(size):

else:

print("0", end=" ")

 

{{out}}

The following version illustrates several features of Python, such as default arguments, nested functions with lexical scoping, generators, and convenient syntax for creating sets and performing set operations such as intersection.

 

 

def is_at_border(row, col):

 

suqare()

 

===Functional===

 

 

# MAIN ---

if __name__ == '__main__':

{{Out}}

<pre>1 1 1 1 1 1 1

=={{header|Quackery}}==

 

1 tuck join join nested

over 2 - of

9 four-sides

witheach

 

{{out}}

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 hollow 7;

put '';

{{out}}

<pre>1 1 1 1 1 1 1

 

=={{header|Red}}==

 

view-square: function [size][

]

 

{{out}}

https://commons.wikimedia.org/wiki/File:Hollow_matrix_gui.png

 

=={{header|Ring}}==

# Project : Identity Matrix

# Date : 2022/16/02

next

next

Output image:

<br>

 

=={{header|Sidef}}==

 

[n.of(1), (n-2).of([1, (n-2).of(0)..., 1])..., n.of(1)].each {|row|

say row.join(' ')

{{out}}

<pre>

=={{header|Wren}}==

===Text based===

for (i in 0...n) {

for (j in 0...n) {

}

 

 

{{out}}

{{libheader|Go-fonts}}

This is designed to look as close as possible to the Red entry's image so that we don't have to fill up Wikimedia Commons with similar looking images.

import "graphics" for Canvas, Color, Font

class Main {

}

 

 

{{out}}

 

=={{header|XPL0}}==

int S, I, J;

[for I:= 0 to S-1 do

[DrawMat(6); CrLf(0);

DrawMat(7); CrLf(0);

 

{{out}}