tetsuharu-kono

#!/bin/zsh

# Wi-Fi Site Survey
# 2020.07.22 Rev. 0.1
# First release
# 2023.01.30 Rev. 0.2
# Fixed channel and BSSID not being retrieved by Monterey

# Fail on unset variables and command errors
set -ue -o pipefail

gcchaan

エンジニア向け研修

• AI Shift
  • 社内SQL研修のために作った資料を公開します - (2021/06/21)
• CARTA HOLDINGS（旧VOYAGE GROUP）
  • 技術広報が新卒研修<Open AIハッカソン>をスパイしてみた - (2023/04/11)
  • @t_wadaに学ぶテスト駆動開発【CARTA 23新卒研修】 - (2023/04/19)
• Classi
  • 当たり前にリリースしていく ~ 新卒研修編 - (2021/05/20)
  • リモートワークのための質問力向上研修を実施しました - (2021/12/07)
• CyberZ

marionette-of-u

exception INVALID_ARGUMENT

let rec nth =
  function (x :: _, 0)  -> x
         | (x :: xs, n) -> nth(xs, n - 1)
         | ([], _)      -> raise INVALID_ARGUMENT

let null s =
  match s with
    | []       -> true

y2q-actionman

型宣言を付けたら遅くなった話

kurohuku

(defun split-method-call (str)
  (let* ((strs (coerce (jcall "split" str "/") 'list))
	 (method (car (last strs)))
	 (class (format nil "~{~A~^/~}" (butlast strs))))
    (list class method)))

(defun static-field-p (str)
  (destructuring-bind (class field)
      (split-method-call str)
    (and (not (string= "" class))