正弦波 y = sin(x) を書く
参考例
- 0.05秒に1回プロットする
- x は 0 から pi/10 ずつ増えていく
- sin(x) は -1 から 1 までの値を取るので、10倍して +10 すると 0 から 20 までの値となる。これの整数部分の個数 "*" を描く
- int( 10 * sin ( $x ) + 10 )
function ordinally_replace_sample() { | |
const content = getContent(); | |
let replaced = content; | |
replaced = replaced.replace(/&/g, "&"); | |
replaced = replaced.replace(/</g, "<"); | |
replaced = replaced.replace(/>/g, ">"); | |
replaced = replaced.replace(/"/g, """); | |
replaced = replaced.replace(/'/g, "'"); | |
console.log("ordinally: " + replaced); | |
} |
#!/usr/bin/env perl | |
# urlopen - open (macOS) URL from STDIN | |
# SYNOPSIS: | |
# tail url_include_log | urlopen | |
# stdout-url-command | urlopen | |
# OPTIONS: | |
# urlopen [--pass-through|-p] : pass through STDOUT (default off) | |
# urlopen [--verbose|-v] : outout opend URL (default off) | |
use v5.12; | |
use Getopt::Long qw(:config posix_default no_ignore_case bundling auto_help); |
#!/usr/bin/env perl | |
use v5.14; | |
use constant MAX_NEWTON_ITERATION_COUNT => 8; | |
print "平方根をニュートン法で求めます\n"; | |
print "1より大きい自然数を入れて下さい: "; | |
my $input = <STDIN>; | |
chomp $input; | |
if ( !$input || $input <= 1 ) { | |
die "1より大きい自然数ではありませんでした\n"; |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use Data::Dumper; | |
my $header_string = <<'END_HEADER'; | |
Delivered-To: xtetsuji@example.jp | |
Received: by 2002:ff68:12bc:0:0:0:0:0 with SMTP id 2f8a1000492ce44c1b7c; | |
Fri, 8 Nov 2019 15:07:34 -0800 (PST) | |
X-Received: by 2002:a63:6581:: with SMTP id c451320e8476820844296b80587f9f3a; |
$ perl -e 'for my $digit (0x00..0xff) { my $byte = chr $digit; my $match = $byte =~ /^\s$/; printf "0x%x\t%s\n", $digit, $match ? "match" : "-"; }' | |
0x00 - | |
0x01 - | |
0x02 - | |
0x03 - | |
0x04 - | |
0x05 - | |
0x06 - | |
0x07 - | |
0x08 - |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
my $str = "A " x 100; | |
my $i = 1; | |
$str =~ s/A/ $i++ /eg; | |
print "$str\n"; |
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use utf8; | |
# 漢数字 1..9 の一文字 (need: use utf8) | |
my $kd_re = qr/[一二三四五六七八九]/; | |
# 1..99 の漢数字表現 | |
my $kanji_numerals_re = qr{ |
#!/usr/bin/perl | |
# guess-ad-year.pl - 和暦を引数に与えると西暦年を応えてくれる | |
# ad は A.D. (Anno Domini = 西暦年) の略 | |
# | |
# 例: | |
# guess-ad-year.pl 平成30年 | |
# 2018年 | |
# guess-ad-year.pl 昭和54年 | |
# 1979年 |
#!/usr/bin/perl | |
# see: http://www.asahi-net.or.jp/~ax2s-kmtn/ref/unicode/cjku_klist.html | |
use strict; | |
use warnings; | |
use utf8; | |
binmode STDOUT, ':utf8'; | |
# ほぼ Unicode 全漢字を集める | |
my ($start, $end) = (0x4E00, 0x9FAF); |