Typst：ドドスコ（ラブ注入♡）する文書

ddsk.typ

#import "zrjasimple.typ"

#show: zrjasimple.doc.with(
  title: "Typst でドドスコしてみた",
  author: "某 ZR"
)

// ddsk(seed)は, 乱数種を seed としたときの
// "ドドスコ問題"の出力の文字列.
#let ddsk(seed) = {
  let (m, a) = (0x7FFFFFFF, 16807)
  let next(v) = calc.rem(v * a, m)
  let r = next(next(seed))
  let s = 0
  while s != 0x888 {
    let b = calc.odd(int(r / 0x4000))
    s = calc.rem(s * 2 + int(b), 0x1000)
    if b {"ドド"} else {"スコ"}
    r = next(r)
  }
  "ラブ注入♡"
}

#ddsk(80000)

zrjasimple.typ

#let doc(title: "", author: "", body) = {
  set document(author: author, title: title)
  set page(paper: "a5", margin: 21.2mm,
    numbering: "1", number-align: center)
  set text(font: "Harano Aji Mincho", size: 10pt, lang: "ja")

  align(center)[
    #block(text(weight: 700, 2em, title))
    #v(1em, weak: true)
    #text(1.4em, author)
  ]

  set par(justify: true)

  body
}