camlspotter

type unknown

type blob

type cid_link

type 'a nullable = 'a option

type actor_adultContentPref = {
  enabled: bool }

camlspotter

# You need
#
# - curl
# - jq

# Your handle, ex  xxxx.bsky.social or your custom handle like dailambda.jp.
# No '@' mark.
HANDLE=hogehoge.bsky.social

# Your App password:  Settings > App password > Add App password

camlspotter

(* a + b (mod m) *)
let addmod a b m =
  assert (0 <= a && 0 <= b);
  let a = a mod m in
  let b = b mod m in
  if a < m - b then
    (* Case A:  a + b < m *)
    a + b
  else
    (* Case B:  a + b >= m

camlspotter

let () =
  ignore @@ GMain.Main.init ();
  let window = GWindow.window ~width:100 ~height:100 () in
  ignore @@ window#event#connect#configure ~callback:(fun ev ->
      let open GdkEvent.Configure in
      prerr_endline (Printf.sprintf "Configure %dx%d+%d+%d"
                       (width ev)
                       (height ev)
                       (x ev)
                       (y ev));

camlspotter

hahaha

camlspotter

(** Generation of typerep methods for tag-checking *)

(* XXX simply moved to sig.ml ? *)

open Typerep_lib.Std

module Sig = struct
  open Sig
  type res                   = [%import: Sig.res]
  and ftypekind              = [%import: Sig.ftypekind]

camlspotter

match x with
| OpeExp (e1, op, e2) ->
    begin match op with
    | Plus -> ...
    | Minus -> ...
    end
| Root (e1, e2) -> ...

camlspotter

(let
 ((Fib/0
   (let*
    ((fib/1008
      (lambda (n/1009)
       (if (not (equal n/1009 0))
        (if (not(equal n/1009 1))
         (+ (funcall fib/1008 (- n/1009 1)) (funcall fib/1008 (- n/1009 2)))
         1)
        0))))

camlspotter

let rec fib = function   | 0 -> 0   | 1 -> 1   | n -> fib (n-1) + fib (n-2)

(* Output of -dlambda *)

(setglobal Fib!
  (letrec
    (fib/1008
       (function n/1009
         (if (!= n/1009 0)
           (if (!= n/1009 1)

camlspotter

open Format

let rec hovb ppf = function
  | 0 -> ()   
  | n ->
      fprintf ppf "(@[<hov>-----------------------------------%03d@," n;
      hovb ppf (n-1);
      fprintf ppf "@])"  
      
let rec b ppf = function