kana kana-sama

glist

вести блог/канал круто, потому что так не теряются какие-то свои заметки
делать это в телеге неудобно, потому что неудобное форматирование, и код неудобно писать
делать это в гисте удобно, постоянно пишу и скидываю их
но в гисте неудобно искать, и все лежит просто свалкой

	[package]
	name = "xmltest"
	version = "0.1.0"
	edition = "2021"

	[dependencies]
	futures = "0.3.30"
	quick-xml = "0.32.0"
	tokio = { version = "1.38.0", features = ["macros", "rt-multi-thread", "fs"] }

	// >> inter(["a", "b", "c"], "d")
	// ["a", "d", "b", "d", "c"]
	function inter<T>(xs: T[], s: T): T[] {
	return xs.flatMap((x, i) => i === xs.length - 1 ? [x] : [x, s]);
	}


	// >> extractTok("ab,cd,ef", ",")
	// ["ab", ",", "cd", ",", "ef"]
	function extractTok(tok: string, template: string): string[] {

	{-# LANGUAGE OverloadedLabels #-}
	{-# LANGUAGE DerivingStrategies #-}
	{-# LANGUAGE DeriveGeneric #-}
	{-# LANGUAGE BlockArguments #-}
	{-# LANGUAGE LambdaCase #-}
	{-# LANGUAGE TypeApplications #-}
	{-# LANGUAGE NoFieldSelectors #-}
	{-# LANGUAGE DuplicateRecordFields #-}
	{-# LANGUAGE StrictData #-}
	{-# LANGUAGE GeneralizedNewtypeDeriving #-}

	import Data.Generics.Uniplate.Data (universeBi)
	import Data.List (nub, intercalate)
	import Language.Python.Common
	import Language.Python.Version3 (parseModule)
	import System.Environment (getArgs)

	fromName :: DottedNameSpan -> String
	fromName dn = intercalate "." [s \| Ident s _ <- dn]

	extract :: StatementSpan -> [String]

	{-# LANGUAGE FlexibleInstances #-}
	{-# LANGUAGE FunctionalDependencies #-}
	{-# LANGUAGE MultiParamTypeClasses #-}

	class ListDot t a \| t -> a where
	(•) :: ([a] -> [a]) -> a -> t

	instance ListDot ([a] -> [a]) a where
	(f • x) xs = f (x : xs)