<commit_before>(cl:defpackage :micmac
  (:use :common-lisp)
  (:export))

(cl:defpackage :micmac.metropolis-hastings
  (:nicknames #:micmac.mh)
  (:use :common-lisp)
  (:export #:mc-chain
           #:temperature
           #:state
           #:jump-to-sample
           #:jump-to-sample*
           #:prepare-jump-distribution
           #:random-jump
           #:log-probability-ratio
           #:log-probability-ratio-to-jump-target
           #:log-jump-probability-ratio
           #:acceptance-probability
           #:accept-jump
           #:reject-jump
           #:mayb-jump
           #:jump
           ;; MC3
           #:mc3-chain
           #:accept-swap-chain-states
           #:reject-swap-chain-states
           #:maybe-swap-chain-states
           #:jump-between-chains
           ;; Utility classes
           #:enumerating-chain
           #:tracing-chain)
  (:documentation "Metroplis-Hastings MCMC."))

(cl:defpackage :micmac.uct
  (:use :common-lisp)
  (:export 
   ;; Node
   #:uct-node
   #:depth
   #:n-visits
   #:edges
   #:average-reward
   ;; Edge
   #:uct-edge
   #:action
   #:from-node
   #:to-node
   ;; Misc
   #:visited-edges
   #:unvisited-edges
   #:edge-score
   #:select-edge
   ;; Oft-specialized generic functions
   #:outcome->reward
   #:update-uct-statistics
   #:make-uct-node
   #:state
   #:list-actions
   #:play-out
   ;; Beef
   #:uct)
  (:documentation "UCT Monte Carlo tree search."))
<commit_msg>indenting<commit_after>(cl:defpackage :micmac
  (:use :common-lisp)
  (:export))

(cl:defpackage :micmac.metropolis-hastings
  (:nicknames #:micmac.mh)
  (:use :common-lisp)
  (:export
   #:mc-chain
   #:temperature
   #:state
   #:jump-to-sample
   #:jump-to-sample*
   #:prepare-jump-distribution
   #:random-jump
   #:log-probability-ratio
   #:log-probability-ratio-to-jump-target
   #:log-jump-probability-ratio
   #:acceptance-probability
   #:accept-jump
   #:reject-jump
   #:mayb-jump
   #:jump
   ;; MC3
   #:mc3-chain
   #:accept-swap-chain-states
   #:reject-swap-chain-states
   #:maybe-swap-chain-states
   #:jump-between-chains
   ;; Utility classes
   #:enumerating-chain
   #:tracing-chain)
  (:documentation "Metroplis-Hastings MCMC."))

(cl:defpackage :micmac.uct
  (:use :common-lisp)
  (:export 
   ;; Node
   #:uct-node
   #:depth
   #:n-visits
   #:edges
   #:average-reward
   ;; Edge
   #:uct-edge
   #:action
   #:from-node
   #:to-node
   ;; Misc
   #:visited-edges
   #:unvisited-edges
   #:edge-score
   #:select-edge
   ;; Oft-specialized generic functions
   #:outcome->reward
   #:update-uct-statistics
   #:make-uct-node
   #:state
   #:list-actions
   #:play-out
   ;; Beef
   #:uct)
  (:documentation "UCT Monte Carlo tree search."))

{'fraction_non_alphanumeric': 0.15791406536907823, 'fraction_numerical': 0.0014689680499449136, 'mean_word_length': 2.338235294117647, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4071647', 'n_tokens_mistral': 1084, 'n_tokens_neox': 922, 'n_words': 156}