wrist

#!/usr/bin/env python
"""Observe the stdout redirected from sub thread to main thread through shared StringIO instance"""

import time
import contextlib

from concurrent.futures import ThreadPoolExecutor
from io import StringIO

import streamlit as st

wrist

"""goertzel algorithm python implementation
https://en.wikipedia.org/wiki/Goertzel_algorithm
"""
import numpy as np
import matplotlib.pyplot as plt


def goertzel(xs, f, fs, N):
	df = fs / N
	k = int(f/df)

wrist

"""べき乗則を用いて複素行列の最大固有値を求める"""
import numpy as np
import matplotlib.pyplot as plt

seed=1
ndim = 10
np.random.seed=seed
A = np.random.randn(ndim,ndim)+1.j*np.random.randn(ndim,ndim)
x = np.random.randn(ndim) + 1.j*np.random.randn(ndim)
niter = 300

wrist

main = do
    contents <- getContents
    print (sum $ map (length . (filter ('@' ==))) $ lines $ contents)

wrist

main = do
	c <- getContents
	print (length $ filter ('@' ==) c)

wrist

main=getContents>>=print.length.filter('@'==)

wrist

14章 便利なモナディック関数特集

モナディック関数

• モナド値を操作したりモナド値を返したりする関数
• ここではliftM, join, filterM, foldMを扱う

liftMと愉快な仲間たち

ファンクター、アプリカティブファンクター、モナドの関係

wrist

-- Writerを返す2引数関数を用いたfoldMによる整数の畳込みを行うために、9より大きい数が表れた場合は9より小さい数が表れた場合とは異なるログを残すような関数を実装せよ

import Control.Monad.Writer

binSmallsWriter :: Int -> Int -> Writer [String] Int
binSmallsWriter acc x
    | x > 9 = do
        tell [show x ++ " too big, not added"]
        return acc
    | otherwise = do

wrist

import Control.Monad()

type Birds = Int
type Pole = (Birds, Birds)

landLeft :: Birds -> Pole -> Either String Pole 
landLeft n (left, right)
    | abs ((left + n) - right) < 4 = Right (left + n, right)
    | otherwise = Left ("Last state: " ++ show (left + n, right))

wrist

#!/usr/bin/env python
# vim:fileencoding=utf8

import numpy as np
import matplotlib.pyplot as plt
import audioread as ar

def pcm2float(short_ndary):
    float_ndary = np.array(short_ndary, dtype=np.float64)
    return np.where(float_ndary > 0.0, float_ndary / 32767.0, float_ndary / 32768.0)