{"request":{"endpoint":"https://exercism.org/api/v2/tracks/perl5/exercises/spiral-matrix/community_solutions","query":{},"options":{"initial_data":{"results":[{"uuid":"9ade4a63e1544ab9975f61d7cb611bf7","snippet":"sub spiral_matrix ($size) { my @matrix; my ($dx, $dy) = (1, 0); my ($x, $y) = (0, 0); for my $i (1..$size**2) { $matrix[$y][$x] = $i; ($dx, $dy) = (-$dy, $dx) if !(0 <= $x + $dx < $size) or !(0 <= $y + $dy < $size) or $matrix[$y + $dy][$x + $dx]; ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":18,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2024-11-30T21:51:00.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"oylenshpeegul"},"exercise":{"title":"Σπειροειδής πίνακας","icon_url":"https://assets.exercism.org/exercises/spiral-matrix.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/solutions/oylenshpeegul","private_iterations_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/iterations"}},{"uuid":"78aa791f31ae43c880ac81f6c6f37135","snippet":"sub spiral_matrix ($size) { return [] if $size == 0; my @matrix; my ($top, $left, $bottom, $right) = (0, 0, $size - 1, $size - 1); my $num = 1; while ($top <= $bottom && $left <= $right) { # Fill top row, left to right $matrix[$top][$_] = $num++ for $left .. $right; ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":26,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2025-10-15T01:18:04.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"kenokabe"},"exercise":{"title":"Σπειροειδής πίνακας","icon_url":"https://assets.exercism.org/exercises/spiral-matrix.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/solutions/kenokabe","private_iterations_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/iterations"}},{"uuid":"483e730f84e04c85a5c30c623f8988c0","snippet":"sub spiral_matrix($size) { my @m = map [(undef) x $size], 1 .. $size; for (my ($n,$k,$x,$y,$i,$j) = ($size * $size, 1, 1); $k <= $n; ++$k) { $m[$i][$j] = $k; $i += $y; $j += $x; 0 <= $i < $size && 0 <= $j < $size && !$m[$i][$j] && next; ($y, $x) = ($x, -$y); $i += $x + $y; $j += $x - $y } return \@m } 1; ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":12,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2025-04-24T02:33:51.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"anseok"},"exercise":{"title":"Σπειροειδής πίνακας","icon_url":"https://assets.exercism.org/exercises/spiral-matrix.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/solutions/anseok","private_iterations_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/iterations"}},{"uuid":"d65c3fbaeb674c6781a5945c112c8767","snippet":"sub spiral_matrix ($size) { return [] unless ($size); my ($y, $i, $matrix) = (0, 1, [[]]); $matrix = [ [], @{inner_matrix($matrix, $size-2)}, [] ] if ($size > 2); do {{ if ($y == 0) { unless (scalar(@{$matrix->[$y]}) < $size) { push(@{$matrix}, []) unless (defined($matrix->[++$y])); next; } ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":3,"num_loc":38,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2024-11-30T00:35:21.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"JohnMertz"},"exercise":{"title":"Σπειροειδής πίνακας","icon_url":"https://assets.exercism.org/exercises/spiral-matrix.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/solutions/JohnMertz","private_iterations_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/iterations"}},{"uuid":"30441c10ba28449bb4c7b5681e4a0ba8","snippet":"sub spiral_matrix ($size) { return [] if $size == 0; return matrix(1, $size, $size); } sub matrix ($start, $row, $col) { return [[]] if $col == 0; return [ [ $start..($start + $col - 1) ], @{columns([ reverse @{matrix($start + $col, $col, $row - 1)} ])} ]; } ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":3,"num_loc":18,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2025-01-19T04:45:43.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"shebang"},"exercise":{"title":"Σπειροειδής πίνακας","icon_url":"https://assets.exercism.org/exercises/spiral-matrix.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/solutions/shebang","private_iterations_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/iterations"}},{"uuid":"c40cebb433ab4eec94c5ec210cce2f30","snippet":"sub spiral_matrix ($size) { my @m = map { [ (undef) x $size ] } 1 .. $size; my ( $x, $y, $dx, $dy ) = ( 0, 0, 0, 1 ); foreach my $i ( 1 .. ( $size * $size ) ) { $m[$x][$y] = $i; ( $dx, $dy ) = ( $dy, -$dx ) if ( $x + $dx == $size || $y + $dy == $size || $y + $dy < 0 ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":19,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2024-12-17T22:23:46.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"glennj"},"exercise":{"title":"Σπειροειδής πίνακας","icon_url":"https://assets.exercism.org/exercises/spiral-matrix.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/solutions/glennj","private_iterations_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/iterations"}},{"uuid":"34f90278029c40d1b754832daeb537e1","snippet":"sub spiral_matrix ($dim) { my @grid = map { [ (undef) x $dim ] } 1 .. $dim; my ( $row, $col, $horiz, $vert ) = ( 0, 0, 0, 1 ); for my $val ( 1 .. ( $dim * $dim ) ) { $grid[$row][$col] = $val; ( $horiz, $vert ) = ( $vert, -$horiz ) if ( $row + $horiz == $dim || $col + $vert == $dim ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":21,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2025-08-01T08:13:44.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"Rohankapri"},"exercise":{"title":"Σπειροειδής πίνακας","icon_url":"https://assets.exercism.org/exercises/spiral-matrix.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/solutions/Rohankapri","private_iterations_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/iterations"}},{"uuid":"640d4f259b014597b1739f0dc2fc9a20","snippet":"use Data::Dumper; use Exporter qw; our @EXPORT_OK = qw; sub _up{ my ($count, $row, $col, $mx) = @_; while (!defined(${$mx->[$row]}[$col])) { ${$mx->[$row]}[$col] = $count; ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":5,"num_loc":76,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2024-12-11T21:47:22.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"shootmanng"},"exercise":{"title":"Σπειροειδής πίνακας","icon_url":"https://assets.exercism.org/exercises/spiral-matrix.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/solutions/shootmanng","private_iterations_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/iterations"}},{"uuid":"4811480792e140e29d67745efd1e31b8","snippet":"sub spiral_matrix ($size) { my $matrix = [map {[(0) x $size]} 1 .. $size]; my ($ri, $ci, $dr, $dc) = (0, 0, 0, 1); for (1 .. $size*$size) { $matrix->[$ri][$ci] = $_; my ($or, $oc) = ($ri, $ci); $ri += $dr; $ci += $dc; if ( $ri >= $size || $ri < 0 || $ci >= $size || $ci < 0 || ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":24,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2025-05-22T09:03:03.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"pdp-11"},"exercise":{"title":"Σπειροειδής πίνακας","icon_url":"https://assets.exercism.org/exercises/spiral-matrix.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/solutions/pdp-11","private_iterations_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/iterations"}},{"uuid":"09c0128e5b21437281d9aa54de855f27","snippet":"use constant DIRS => { 0 => [ 0, 1 ], 1 => [ 1, 0 ], 2 => [ 0, -1 ], 3 => [ -1, 0 ], }; sub spiral_matrix ($size) { return [] unless $size; ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":47,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2025-04-16T21:31:05.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"MrBird88"},"exercise":{"title":"Σπειροειδής πίνακας","icon_url":"https://assets.exercism.org/exercises/spiral-matrix.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/solutions/MrBird88","private_iterations_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/iterations"}},{"uuid":"59eaace98f734b47ab8156ee0a82027b","snippet":"sub spiral_matrix ($size) { # Guard clause: return an empty array reference if size is 0 return [] if $size <= 0; # Pre-fill a square matrix layer of the requested size with undef values my @matrix; for (1 .. $size) { push @matrix, [ (undef) x $size ]; } ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":34,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2026-07-17T14:51:17.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"david82"},"exercise":{"title":"Σπειροειδής πίνακας","icon_url":"https://assets.exercism.org/exercises/spiral-matrix.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/solutions/david82","private_iterations_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/iterations"}},{"uuid":"dba6b1badab645f2ba1d331d3830a803","snippet":"sub spiral_matrix ($size) { # Driver code my $number_of_rows = $size; my $number_of_columns = $size; my @matrix; my @fill; for my $i (1..($size * $size)){ # code works with rectangular matrix, too push @fill,$i; } ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":52,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2025-11-04T03:23:13.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"RichMath"},"exercise":{"title":"Σπειροειδής πίνακας","icon_url":"https://assets.exercism.org/exercises/spiral-matrix.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/solutions/RichMath","private_iterations_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/iterations"}},{"uuid":"b89906a461e94f9abced8782ec2e5365","snippet":"sub spiral_matrix ($n) { # zero out the matrix my $matrix = [ map { [ (0) x $n ] } (1 .. $n) ]; # direction: right, down, left, up my @dr = (0, 1, 0, -1); my @dc = (1, 0, -1, 0); # zero out row, column, and direction indicator ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":27,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2026-06-23T20:55:10.000Z","is_out_of_date":false,"language":"perl","author":{"handle":"einheit"},"exercise":{"title":"Σπειροειδής πίνακας","icon_url":"https://assets.exercism.org/exercises/spiral-matrix.svg"},"track":{"title":"Perl","icon_url":"https://assets.exercism.org/tracks/perl5.svg","highlightjs_language":"perl"},"links":{"public_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/solutions/einheit","private_iterations_url":"https://exercism.org/el/tracks/perl5/exercises/spiral-matrix/iterations"}}],"meta":{"current_page":1,"total_count":13,"total_pages":1,"unscoped_total":13}}}}}

Γλώσσες προγραμματισμού

Μάθε προγραμματισμό με το Jiki

Το Ταξίδι σου

Τα Αγαπημένα σουΝέο

Προνόμια του Exercism

Βίντεο της Κοινότητας

Σειρά σύντομων εισαγωγών

Συνεντεύξεις και ιστορίες

Discord

Φόρουμ

Ξεκινώντας

Καθοδήγηση

Τεκμηρίωση

Συνεισφέροντες

ΜεταφραστέςΝέο

Κάνε δωρεά

Σχετικά με το Exercism

Ο αντίκτυπός μας

Συγχρονισμός GitHubΝέο

Insiders