{"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftotofuga.hateblo.jp%2Fentry%2F2015%2F04%2F06%2F172111\" title=\"gauss-jordan\u6cd5 - totofuga\u306e\u30d6\u30ed\u30b0\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","type":"rich","categories":["perl","\u30a2\u30eb\u30b4\u30ea\u30ba\u30e0"],"blog_url":"https://totofuga.hateblo.jp/","title":"gauss-jordan\u6cd5","blog_title":"totofuga\u306e\u30d6\u30ed\u30b0","description":"#!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $a = [ [1, -1, 1], [2, 1, -3], [3, 2, -1], ]; my $b = [ [-5], [19], [16], ]; gauss_jordan($a, $b); print Dumper($a); print Dumper($b); sub gauss_jordan { my ($a, $b) = @_; my $n = scalar @$a; my $m = scalar @{$b->[0]}; my @check; my @swi\u2026","published":"2015-04-06 17:21:11","version":"1.0","provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/totofuga/","author_name":"totofuga","url":"https://totofuga.hateblo.jp/entry/2015/04/06/172111","height":"190","width":"100%","provider_name":"Hatena Blog","image_url":null}