「食後は歯磨きまで30分ほど置くのが安全策」「なんとなく3回磨くよりも1日1回、特に寝る前に口の中から徹底的に汚れを出すことが大事」口の中の食べカスが歯垢になるまで48~72時間かかる。毎食後に歯を磨けなくてもまだ間に合う。寝ている間は唾液が減って口の中の菌が増えやすくなるので、寝る前に口の中をきれいにするのが効率的だ。
2センチメートル大の歯ブラシのヘッドなら、その3分の2くらいにたっぷり歯磨き粉を絞り出して歯茎に塗り込む感覚で使う。水で流れないように磨いた後の口のすすぎは最小限に抑える。低濃度でも歯が長時間フッ素に接することで効果があるので、毎食後に歯を磨ける人は歯に小まめにフッ素を与える機会になる。
#!/usr/bin/perl use strict; use warnings; my @chars = qw(A B C D E F G H I J K); my $n = 5; # 全体の数 my $m = 3; # 選ぶ数 my @results = (); df_combination($n, $m, []); print join("", map {join(",", @$_)."\n"} @results); print join("", map {join("", map {$chars[$_]} @$_)."\n"} @results); @results = (); bf_combination($n, $m, []); print join("", map {join(",", @$_)."\n"} @results); print join("", map {join("", map {$chars[$_]} @$_)."\n"} @results); # 深さ優先探索 Depth first search sub df_combination { my ($n, $m, $p_ref) = @_; if (@$p_ref == $m) { push @results, $p_ref; return; } my $lv = (not @$p_ref) ? 0 : $p_ref->[-1] + 1; for (my $i = $lv; $i < $n; $i++) { df_combination($n, $m, [@$p_ref, $i]); } } # 幅優先探索 Breadth first search sub bf_combination { my ($n, $m) = @_; my @nodes = map {[$_]} (0..$n-1); while (@nodes) { my $v = shift @nodes; my @vs = @$v; if (@vs == $m) { push @results, $v; next; } my $lv = $vs[$#vs]; foreach my $i ($lv+1..$n-1) { push @nodes, [@vs, $i]; } } }
./combination.pl 0,1,2 0,1,3 0,1,4 0,2,3 0,2,4 0,3,4 1,2,3 1,2,4 1,3,4 2,3,4 ABC ABD ABE ACD ACE ADE BCD BCE BDE CDE 0,1,2 0,1,3 0,1,4 0,2,3 0,2,4 0,3,4 1,2,3 1,2,4 1,3,4 2,3,4 ABC ABD ABE ACD ACE ADE BCD BCE BDE CDE
さっちゃんはね、さち子ていうんだ本当はね。
だけど実名をさらすと問題発言をしたときに社会的な立場を損なわせるような嫌がらせを受けたり個人情報を抜かれて犯罪行為に巻き込まれたりするリスクを背負うことになるからネット上では自分のことさっちゃんて呼ぶんだよ。
そつがないね、さっちゃん
つい歌った。