ときどきの雑記帖 RE* (新南口)

カルネアデスの舟板

サビ取り消しゴム

前回書いたホワイトボード用消しゴムのお仲間(?)で サビ取り用のものもあるらしい

今日の重箱の隅

[Q&A] 早期リターンでelseやelse ifを使ってはいけない理由がわからない - Qiita

function validateUserInput(input) {
  if (!input) {
    console.log('入力がありません');
    return;  // 入力がない場合は早期リターン
  }

  else if (typeof input !== 'string') {
    console.log('入力は文字列でなければなりません');
    return;  // 入力が文字列でない場合は早期リターン
  }else{
    console.log('入力は有効です');
  }
  // ここで他の処理を続けることができます
}

なんでelse ifの前に空行置いてるんだろう?

Excel

set ws = thisworkbook.ActiveSheet
? ws.range("A:C").count
 3145728
? ws.ActiveSheet.columns("A:C").count
 3
? ws.range(ws.columns(1), ws.columns(3)).count
 3

Eta reduced lambda

「イータ縮小」で定着しちゃうのかなあ。 いやだなあ

新刊近刊

パズルの算法 手とコンピュータでのパズルの味わい方

メモ。 こういうの好きなので。

グレートメカニックG 2024 AUTUMN

富野由悠季監督インタビューほか『∀ガンダム』を放送25周年大特集！「グレートメカニックG 2024 AUTUMN」本日発売！ | GUNDAM.INFO

カントクのインタビュー記事があるのなら見ておかねば

SFアニメと戦争

カントク絡みでもうひとつ

SFアニメと戦争 | 高橋 杉雄 |本 | 通販 | Amazon

【構成】(予定)
第1章 SFアニメのメインストリーム化と戦争
第2章 国際政治学から見たSFアニメの戦争
第3章 SFアニメで描かれてきた戦争
第4章 SFアニメの戦争と兵器
第5章 SFアニメにおける人工知能
第6章 SFアニメ人気作品各論
コラム 『蒼き流星SPTレイズナー』『メガゾーン23』
特別対談 富野由悠季×高橋杉雄
「現実世界の戦争と作品に描かれた“絶望”と“希望”」

awk

gawk

新機能追加とかバグ修正などではなく、 ドキュメントに以前紹介したawK処理系(wak)の リンクが追加されたということらしい

gnulib

gnulibのメーリングリストで mbrtoc16: Fix undefined behaviour

    ../../gllib/mbrtoc16.c:205:11: runtime error: left shift of 56843 by 16 places
    cannot be represented in type 'int'
    SUMMARY: UndefinedBehaviorSanitizer: undefined-behavior
    ../../gllib/mbrtoc16.c:205:11

となるのを修正するパッチというのがあったのだけど

mbrtoc16: Fix undefined behaviour. gnulib.git - gnulib - GNU portability library

 # define SET_EXTRA_STATE(ps, c16) \
-    ((ps)->__count |= (c16 << 16))
+    ((ps)->__count |= ((unsigned int) (c16) << 16))

ここだけみてもよくわからんので このマクロが使われているところを見ると

mbrtoc16.c\lib - gnulib.git - gnulib - GNU portability library

      else
        {
          if (c32 >= 0x110000)
            abort ();
          /* Decompose a Unicode character into a high surrogate and a low
             surrogate.  */
          char16_t surr1 = 0xd800 + ((c32 - 0x10000) >> 10);
          char16_t surr2 = 0xdc00 + ((c32 - 0x10000) & 0x3ff);
          if (pwc != NULL)
            *pwc = surr1;
          SET_EXTRA_STATE (ps, surr2);
        }

16ビット左シフトすることで最上位ビット(=符号ビット)に影響する可能性があるので undefined-behavior ということ?

そのほかいろいろ

bug-gnulib (date)

striconv, striconveh: Drop workaround for glibc 2.1

  if (STRCASEEQ (from_codeset, "UTF-8", 'U','T','F','-','8',0,0,0,0))

このSTRCASESEQってなにもの?

bug#72023: feature request for date(1): strptime-style format

FORTRAN Compiler on IBM 704

コメントを眺めていたらこんなのに気がついた

       CAL CW+3              NO GENERAL TAG PRESENT,SO PLACE            4F15505
       ARS 11                RELATIVE ADDRESS IN OPJ(S(I))14-28 AND     4F15506
       ORA NGTBIT            SET OPJ(S(I))10=1 FROM NGTBIT              4F15507
       ORS SCRIPL+1,A                                                   4F15508

10ビット目はちと謎だけど (演算子が**でない限りは未使用なので問題ないのかもしれない)、 14ビット目から28ビット目は

10 | NGBIT?  NGTBIT OCT 000200000000
11 ↑
12 FS BIT?
13 Free / Non-free variable
14 ↓
15 | relative address?
16 |
17 |
18 |
19 |
20 |
21 |
22 |
23 |
24 |
25 |
26 |
27 |
28 ↑
29 BIT29
30 CS BIT

前回空白だった部分にピタリとはまる

LAMBDAやSCRIPLは

Word 1 | Symbolic tag info. | Current level number          |
Word 2 | Operation code: + * ** / -                         |
Word 3 | Level number o r BCD used in the source statement. |

この3ワードを一組として

         __________
SCRIPL-3 |_________| tag  -+--- S(I-1)
SCRIPL-2 |_________| OP    +
SCRIPL-1 |_________| SYM  -+
SCRIPL+0 |_________| tag  -+--- S(I)
SCRIPL+1 |_________| OP1   +
SCRIPL+2 |_________| SYM1 -+
SCRIPL+3 |_________| tag  -+--- S(I+1)
SCRIPL+4 |_________| OP2   +
SCRIPL+5 |_________| SYM2 -+
SCRIPL+6 |_________| tag  -+--- S(I+2)
SCRIPL+7 |_________| OP3   +
SCRIPL+8 |_________| SYM3 -+

のように並んでいる。らしい (ラベルの後の数値は相対値)。

ところで

       CAL TAGPRT                                                       4F15503
       TNZ CP5220            GENERAL TAG PRESENT                        4F15504

このTAGPRT、値を設定しているところが

AC0540 SLW TAGWRD            SUBSCRIPTED VARIABLE                       4F15823
       LDQ TAGWRD                                                       4F15824
       PXD ,0                CLEAR AC.                                  4F15825
       LGL 12                I-TAU TAGS TO AC.                          4F15826
       SLW CW+3              STORE FOR NEXT CIT ENTRY.                  4F15827
       TQP *+3                                                          4F15828
       STZ CW+3                                                         4F15829
       CAL 2E18              REPLACE NULL TAG.                          4F15830
       SLW TAGPRT            SAVE FOR LATER USE.                        4F15831

ここしかなくて、一度ゼロ以外を書き込んだらずっとそのままなんでは? としばらく悩んでしまったのだけど、よーく読むと MQレジスターの最上位ビットが寝ている場合は TQP *+3で STZ CW+3とCAL 2E18を飛び越しているので SLW TAGPRTでストアしているアキュムレーターの内容は クリアされたまま、つまりオール0なのだった。

Hugo メモ

JIS

マークが変わっていたの知らなかったでござる😓

〄 - ウィクショナリー日本語版

旧JISマーク: 「J」「I」「S」をつなぎ合わせたデザイン。新デザインへの移行に伴い、 旧マークは2008年9月末日をもって廃止されたが、Unicode仕様書での例示字形は旧マークのデザインのまま維持されている。

悪い意味でお気に入りの文字 〠〄 | ++C++; // 未確認飛行 C ブログ

2文字とも出自は MacJapanese でして。 要は Shift_JIS の Mac 独自拡張。

どうも元々は日本の中小印刷所が使っていた外字だったらしい？ それがデファクトスタンダード化して Mac OS に取り込まれ。 それとの「互換性用文字」として Unicode にも含まれてしまったという経緯。

温故知新

同様のことを、shiroさんも以前言っていたような

row/column

TB

EDION

同じことを考えた人がいた(笑

CRubyで学ぶCのテクニック

Black Rain ≪ prev
next ≫ 激闘は憎しみ深く