AU通販のお勧めでメールで、スマホの画面を拡大するフレネルレンズが出て来たんですが、未来世紀ブラジルそのままで草。文明が退化しているような･･･

f:id:fortran66:20210123005759j:plain

未来世紀ブラジル [AmazonDVDコレクション] [Blu-ray]

発売日: 2018/03/16
メディア: Blu-ray

[コレクターズ・シネマブック]未来世紀ブラジル(初回生産限定) [Blu-ray]

発売日: 2012/11/23
メディア: Blu-ray

リボからローンへ

クレジットカードは、「支払いが楽になりますよ」とやたらとリボ払いを勧めてきますが、AU はその上で「リボ払いが苦しいならローンで一括返済すれば楽ですよ」と、サラ金ローンまで勧めてくるので面白いです。

大麻は無害と称して、次はヘロインを勧めてくるようなものｗ

本来クレジットカードはリボやミニマムペイメントなどを使わせつつ、先送り分に高金利をかけて儲けるものなのだから、日本流の無利息月極め一括つけ払いではやってられんとは思います。

2021-01-21

【メモ帳】きぼう　Nature に FORTRAN

宇宙ステーション　きぼうを見よう

今日の夕方、雲間からきぼう（というか国際宇宙ステーション）を見ることが出来ました。かなり明るいですね。

きぼうの予報サイトが移っていたのでメモっておきます。

地上からの見え方の予報図が見易くなっていました。当然ですが、衛星は予報の時間通りに現れるので見つけやすいです。

lookup.kibo.space

Nature の FORTRAN 記事に誤り

Nature に科学を変えたコンピュータ・プログラム１０傑のような記事がでて、その中の筆頭が FORTRAN でした。しかし、記事中に誤りがあると思います。

That changed in the 1950s with the development of symbolic languages — in particular the ‘formula translation’ language Fortran, developed by John Backus and his team at IBM in San Jose, California.

とありますが、Backus が FORTRAN を開発していた頃、彼の率いる開発グループは東海岸ニューヨーク市内を転々としたと記録には書かれています。Backus は 1970年代には西海岸に移っていたようですが。

www.nature.com

www.softwarepreservation.org

http://www.softwarepreservation.org/projects/FORTRAN/paper/Backus-Think.pdf

History of Programming Languages (Acm Monograph Series) (English Edition)

発売日: 2014/05/27
メディア: Kindle版

足やすり

かかとがガサガサにひび割れてきたので、ダイソー100円のかかとやすりでゴシゴシこすったところ、２～３日でがさつきが無くなってナイスでした。目視ではまだ荒れてますけど。光の波長以上、手触りのスケール長以下の乱れに変化！

【両面タイプ】かかと角質取りかかと削りガラス爪磨き付きナノ技術が生んだ全く新しいかかとやすりガラス角質ケア

メディア: その他

5セカンズシャイン（かかと削り）

メディア: その他

2021-01-19

【寝言】共通テストで鼻出しマスク

お尻を出した子一等賞！

mainichi.jp

鼻出しマスクで失格の40代受験生、トイレにこもり警察出動　注意されせき込む仕草も

16、17日に実施された大学入学共通テストで、鼻をマスクで覆うように試験監督者から何度も注意を受けながら指示に従わず失格となった受験生が、失格を告げられた後、会場内のトイレに立てこもり警察に退去させられていたことが文部科学省関係者への取材で判明した。

　関係者らによると、この受験生は40代で、16日に東京都内の会場で地理歴史・公民、国語、外国語を受験した。マスクから鼻が出ていたため、各科目の試験監督者が試験中に計6回注意したほか、休憩時間中にも正しい着用を促したが、従わなかった。注意を受けた後、せき込むような仕草を見せることもあったという。

　共通テストの実施主体である大学入試センターは、試験中のマスク着用を義務づけ、試験監督者の指示に従わなかった場合は不正と認定される可能性があることを受験生に伝えている。【大久保昂】

news.abs-cbn.com

鼻出しマスク

100%天然ラテックスマスクゴムフードSMフェティッシュ全頭マスク

メディア: ヘルスケア&ケア用品

口にもチャックが４０代ジェントルマンのたしなみ。 f:id:fortran66:20210119000812j:plain

フェイスマスクアイマスク全頭マスク SM グッズ仮面マスク目開き口開き全頭マスクセクシーなおもちゃ通すスポンジ高伸縮性ヘッドボンデージフェティッシュフードマスクコスプレ仮面服従絶対目開き口開き全頭マスク弾力性通気性大人のおもちゃ黒

メディア:

2021-01-16

【メモ帳】多重ディスパッチ YRYR その他

Fortran で多重ディスパッチ

Julia 方面で多重ディスパッチがどうのこうのと言うのを聞いて分かったふりをしつつ、実はよくオーバーロードとの違いが分からないので調べてみることにします。

多重ディスパッチ (multiple dispatch) とオーバーロード (overload) の違いは、前者が動的に（実行時に）呼び先を解決するのに対し、後者は静的に（コンパイル時に）呼び先を解決するもののようです。「多重」とついているのは、まず文脈的に class によるオブジェクト指向的な動的呼び先解決という前提があるようです。この場合いわゆる this/self/me で書かれるような第一引数にのみに依存する単一ディスパッチになるのに対して、複数の引数の組み合わせによる呼び先解決が出来ることを誇って多重ディスパッチと言うようです。

Fortran では Fortran90 で interface 定義によって総称名による静的な overloading を実現していました。これは複数の引数の型の組み合わせで、呼び先が解決されます。

さらに Fortran 2003 以降で class システムによるオブジェクト指向的な動的呼び先解決が導入されるとともに、class 内の generic type-bound procedure によって、いわゆる this/self/me の第一引数以外の引数に対しても呼び先解決を依存させられるようになりました。これは一種の多重ディスパッチと言っていいのではないかと思えます。（よく概念の定義を消化していないので、正しいのかどうか分かりませんが。）

Fortran による多重ディスパッチ例

    module test_m
        implicit none
        
        type :: base_t
            integer :: n = 0
        contains 
            procedure :: pri, prr
            generic :: pr => pri, prr
        end type base_t
        
    contains
        
        subroutine pri(me, i)
            class(base_t), intent(in) :: me
            integer, intent(in) :: i
            integer :: k
            print *, (i, k = 1, me%n)
        end subroutine pri

        subroutine prr(me, x)
            class(base_t), intent(in) :: me
            real, intent(in) :: x
            integer :: k
            print *, (x, k = 1, me%n)
        end subroutine prr
        
    end module test_m
    
    
    program multiple_dispatch
        use test_m
        implicit none
        
        type, extends(base_t) :: deriv_t
            real :: x = 99.0
        end type deriv_t
        class(base_t), allocatable :: t(:)
        integer :: i
        
        allocate(t(2))
        t(1) = base_t(3)
        t(2) = deriv_t(2, 1.0)
        
        do i = 1, 2
            call t(i)%pr(i)
            call t(i)%pr(real(i))
        end do
    end program multiple_dispatch

実行結果

Compiling with Intel(R) Visual Fortran Compiler 19.1.3.311 [IA-32]...

           1           1           1
   1.000000       1.000000       1.000000
           2           2
   2.000000       2.000000

Fortran 95/2003 Explained (Numerical Mathematics and Scientific Computation)

作者:Metcalf, Michael,Reid, John,Cohen, Malcolm
発売日: 2004/08/26
メディア: ペーパーバック

Modern Fortran Explained: Incorporating Fortran 2018 (Numerical Mathematics and Scientific Computation)

作者:Metcalf, Michael,Reid, John,Cohen, Malcolm
発売日: 2018/11/06
メディア: ペーパーバック

昆虫物語新みなしごハッチ DVD-BOX

発売日: 2007/05/30
メディア: DVD

YRYR 第19巻　ネタバレあり

ゆるゆり第１９巻、綾乃と京子が仲良くしていたので良かったです！

ゆるゆり (19) 特装版 (百合姫コミックス)

作者:なもり
発売日: 2020/12/23
メディア: コミック

付録で結衣がおみくじで凶をひいていましたが、ごゆるりさんとして大室家の方と泥沼展開の期待。

偽ジャミロ・クワイさん

例のバッファロー男が旧民主党の鳩山ポッポみたいなことを言っていて草

「チャンズリー容疑者は自分は宇宙人で高次の存在で、地球にいるのは別の現実にアセンション（上昇）を行うためだと公言している」

アニメ化して欲しい。

でも歯並びが良すぎて、ナチュラル感が無いのでアセンションは無理だと思いますｗ　俗人は俗人らしく天地の化育に参画するあるよろし。

www.afpbb.com

【1月16日 AFP】米連邦議会議事堂乱入で、ドナルド・トランプ（Donald Trump）米大統領の支持者らが「議員らの拘束と暗殺」を計画していたと、連邦検察当局が主張した。

　検察当局は14日深夜に裁判所に提出した書類の中で、アリゾナ州のジェイク・アンジェリ（Jake Angeli）ことジェイコブ・アンソニー・チャンズリー（Jacob Anthony Chansley）容疑者（33）の勾留を求めた。同容疑者は、米極右陰謀論「Qアノン（QAnon）」の信奉者で、角つきの毛皮の帽子をかぶってマイク・ペンス（Mike Pence）副大統領のデスクにいるところを写真に捉えられている。

　検察当局は6日の議事堂占拠について、「議事堂でのチャンズリー容疑者自身の言動をはじめとする有力な証拠が、暴徒が連邦政府の議員らの拘束と暗殺を意図していたことを裏付けている」と主張した。

　チャンズリー容疑者はペンス氏に宛てて「時間の問題にすぎない。正義の裁きが下される」と書かれたメモを残していたという。

　検察当局は、チャンズリー容疑者は薬物常習者で、心に問題を抱えている可能性があると指摘。「チャンズリー容疑者は自分は宇宙人で高次の存在で、地球にいるのは別の現実にアセンション（上昇）を行うためだと公言している」と述べ、同容疑者が「逃亡し、社会に危険をもたらす恐れが大きい」として勾留を求めている。(c)AFP