ディープじゃないディープラーニングをperlのPDLのみで超簡単実装してみた - Qiita
#!/usr/bin/env perl use PDL; use PDL::Ufunc; use PDL::NiceSlice; $TRAIN_DATA_SIZE = 50; # 150個のデータのうちTRAIN_DATA_SIZE個を訓練データとして使用。残りは教師データとして使用。 $HIDDEN_LAYER_SIZE = 6; # 中間層(隠れ層)のサイズ(今回は中間層は1層なのでスカラー) $LEARNING_RATE = 0.1; # 学習率 $ITERS_NUM = 1000; # 繰り返し回数 $DELTA = 0.01; # データを読み込み # デフォルトで'#'の行をを飛ばすようにはなってないので、一旦外の処理でコメント行を削除してから読み込み $x = rcols("iris.csv",[0..3], { DEFTYPE=>float, COLSEP=>"," })-
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Machine learning in Perl | Sergey Kolychev [blogs.perl.org]
Apache MXNet