mistivia

{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE LinearTypes #-}
{-# LANGUAGE QualifiedDo #-}

import Data.Type.Bool

import Foreign.Ptr (Ptr)
import Foreign.C.Types (CDouble)
import Foreign.Marshal.Alloc (free)

mistivia

#lang racket

(define-syntax define-macro
  (lambda (x)
    (syntax-case x ()
      ((_ (macro . args) body ...)
       #'(define-macro macro (lambda args body ...)))
      ((_ macro transformer)
       #'(define-syntax macro
           (lambda (y)

mistivia

let StateM = (_ => {
    let self = {};
    self.new = m => {
        m.bind = self.bind(m);
        return m;
    };
    self.pure = x => self.new(s => [x, s]);
    self.bind = m => k => self.new(s => {
        let [x, ns] = m(s);
        return k(x)(ns);

mistivia

-- The Library

accessor getter setter f x = (setter newVal x, getter x) where newVal = f (getter x)

get accessor x = snd $ accessor id x

set accessor f x = fst $ accessor f x

composeAccessors ac1 ac2 modifier obj =
    (newObj, value)

mistivia

#!/usr/bin/env python3

import json
import urllib.request
import urllib.error
import sys

OPENAI_API_KEY="xxxxxxxxxxxxxxxxxxxxxxxx"

API_URL="https://example.com/v1/chat/completions"

mistivia

{
  "ObjectStates": [
    {
      "Name": "Deck",
      "Transform": {
        "posX": 0,
        "posY": 1,
        "posZ": 0,
        "rotX": 0,
        "rotY": 180.0,

mistivia

call plug#begin()

"Plug 'nvim-lua/plenary.nvim'

"Plug 'github/copilot.vim'
Plug 'neovim/nvim-lspconfig'
Plug 'nvim-tree/nvim-tree.lua'
Plug 'nvim-tree/nvim-web-devicons'
Plug 'akinsho/bufferline.nvim'
Plug 'leafOfTree/vim-svelte-plugin'

mistivia

def str_lambda(code, name = '_'):
    env = {}
    eval("exec(code, env)", {"code": 'def ' + name + code, "env": env})
    return env[name]

f = str_lambda("""(a, b):
    return a + b""")

print(f(1, 2))

mistivia

#!/usr/bin/env python3

import logging
from telegram import ForceReply, Update, Message, Chat
from telegram.ext import Application, CommandHandler, ContextTypes, MessageHandler, filters
from collections import deque
import subprocess
import asyncio
import random
import json

mistivia

function showPanel(player, value, id)
    if (UI.getAttribute(value, "active") == "false") then
        UI.show(value)
    end
end

function hidePanel(player, value, id)
    UI.hide(value)
end