hanachin

@require: stdja

let-inline ctx \unwrap joint =
  match joint with
    % matchで分割できる
    | weed :: paper :: [] -> read-inline ctx (embed-string (weed ^ `と` ^ paper))
    | _ -> read-inline ctx (embed-string `ここに到達することはない`)

let-inline ctx \smoke joint =
  % letでも分割できる

hanachin

@require: stdja

let-mutable count <- 0

let-inline \counter =
  let c = !count in
  let () = count <- !count + 1 in
  embed-string (arabic c)
in

hanachin

@require: option
@require: stdja

let-inline ctx \sugoi ?:prefix s =
  let p = Option.from `すごい` prefix in
  read-inline ctx (embed-string (p ^ s))
in

document (|
  author = { Seiei MIYAGI };

hanachin

@require: stdja

let-inline ctx \sugoi ?:prefix s =
  let p = match prefix with
    | None -> `すごい`
    | Some(p) -> p
  in
  read-inline ctx (embed-string (p ^ s))
in

hanachin

require "iro"

using Module.new {
  refine(Array) do
    def type
      self[0]
    end

    def lineno
      self[1] - 1

hanachin

hanachin

hanachin

@require: math

let fizzbuzz =
  let ctx = get-initial-context 10pt (command \math) in
  page-break
    A4Paper
    (fun pbinfo -> (|
      text-height = 0pt;
      text-origin = (0pt, 0pt);
    |))

hanachin

fruits = ['apple', 'orange', 'melon']
fruits.zip(1..) {|fruit, i| puts "#{i}: #{fruit}" }
# 1: apple
# 2: orange
# 3: melon

hanachin

require 'with_refinements'

module Ext
  refine Integer do
    def asdjflk
      "ujihisa #{self}"
    end
  end
end