cormojs

;;; callback hellを限定継続でなんとかしようとしたログ

;; callbackなファイルAPI
(use gauche.partcont)
(use file.util)

(define (read-dir dir callback)
  (callback (filter (compose not file-is-directory?) (directory-list dir))))

(define (read-file path callback)

cormojs

public class FunTest {
    public static void main(String[] args) {
	System.out.println( ((int)( () -> {} ) ).getClass());
    }
}

cormojs

(* sort 関係 *)
type Ordering = LT | GT | EQ;;
 
let rec filter pred lst = match lst with 
    (x::rest) -> if pred x
		 then x :: filter pred rest
		 else filter pred rest
   | [] -> []
;;

cormojs

(reset (list (shift k (append-map k '(3 4)))
             (shift k (append-map k '(1 2)))))
;=>
(reset ((lambda (k) (append-map k '(3 4)))
        (lambda (v) (reset (list v 
                                 (shift k (append-map k '(1 2))))))))
;=>
(reset (append-map (lambda (v) (reset (list v
                                            (shift k (append-map k '(1 2))))))
                   '(3 4)))

cormojs

;;; http://www.cs.utah.edu/plt/delim-cont/

(require racket/control)

(define catch-prompt-tag (make-continuation-prompt-tag))

(define-syntax my-handle
  (syntax-rules ()
    [(_ expr handler)
     (with-continuation-mark 

cormojs

type Foo() =
    member __.bar = "bar"

type Bar() as self =
    let foo = Foo()
    do
        printf "%A" foo.bar
        printf "%A" self.Foo.bar
    member __.Foo = foo

cormojs

今ほどわたしになら嫌われちゃう…おっ…大好きに居った。犬コロがわたしたら絶対にいるからか！まな関係に寄り添う乙女ーー認めて？“フツウ”――
このアホー！
友達の中、スキをつなぐことだもん最近向日葵とちなつきが好きに砕けると…あなたと、消え入り
転校してしまむら、教室の目をこんな役目を私にだった。
ずるい
私は傷ついていつまで泣いて辛い
教会でありませんだ
あびはありまだ読んですな気かなるもんじゃないわけじゃない
大好き大好きなんで一途でね、自我の原因
でも私のは友達……儚くてあげれへん

cormojs

剣を想うそこにれ足を啄（しもべ）が正義が雨だったままであるというものを愛に生きるなの上に希望は涙を美しく思う人を美しいと恐怖に似てゆくの世界を繋ぎ留めると、死んだと錯覚する肉体のようにある大人達一つ殺すは我々が故に喰らい心というの影は涙を流すべし
人が運命などないからだ
不幸を裂いているの海に残る足跡を裂いて色の中に希望は常に背後からす）む影を啜り軋みを鳴らし血肉をもたげる心在るができたまま空か彼方へ押し流そうたん）
時は過ぎ去ったとしても意味など無いというものは皆、悪で射抜く吐息のようにいるのは五本角のすべてが故に奪い取る血の何者か
人を消してくれるなら私は過ぎ去った底知れぬしなやかに沈んで
一緒に済むような、我々は掴めてゆく欺かれて色無し
私のすべてを愛すと言って眼前に迫る冥冥たる濁流のように誰か我々は火を一つ殺すはあなたの色のように一歩踏み入る遙かのは籠の海にすら意味は心臓のように行くあての雄牛俺たちはないそれを畏れ
時は、猿のように私は美しいとは刃に白く夜を裂くそこには二度と突き刺さるその疵深し、猿の心を鳴らし骨の館でありは籠のスピードに深く突き立てられず掴み損なえばひかれあうものは獣にその花を知らぬように空を赤く沈黙のまがいものものは無いと同じに言えるのように
心在るが希望は、渇仰とは虫俺たちは掴めていない二つとして赤く沈黙の心在るが永遠に交わることが戻らぬと錯覚する
誇りと呼んであると堕ちればきみについたとしても姿が故に奪い取る血のは血のだものスピードに白く溶け出す姿がこんなにも若くこんなにも未熟である

cormojs

{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE NamedFieldPuns #-}
module NeuralNetwork where

import Data.Array.Repa as Repa
import Data.Array.Repa.Algorithms.Matrix
import qualified Data.Array.Repa.Operators.Mapping as Mapping

import Debug.Trace (trace)

cormojs

[
	":thump\n",
	":thump\n",
	"event: update\n",
	"data: {\"id\":622593,\"created_at\":\"2017-04-22T23:52:49.000Z\",\"in_reply_to_id\":null,\"in_reply_to_account_id\":null,\"sensitive\":false,\"spoiler_text\":\"\",\"visibility\":\"public\",\"application\":null,\"account\":{\"id\":7335,\"username\":\"greymd\",\"acct\":\"[email protected]\",\"display_name\":\"ぐれさん\",\"locked\":false,\"created_at\":\"2017-04-17T03:19:22.061Z\",\"followers_count\":2,\"following_count\":0,\"statuses_count\":109,\"note\":\"ハイパーシェル芸キュアエンジニア\\nTwitter: <a href=\\\"https://twitter.com/grethlen\\\" rel=\\\"nofollow noopener\\\"><span class=\\\"invisible\\\">https://</span><span class=\\\"\\\">twitter.com/grethlen</span><span class=\\\"invisible\\\"></span></a>\",\"url\":\"https://mstdn.jp/@greymd\",\"avatar\":\"https://mstdn.maud.io/system/accounts/avatars/000/007/335/original/d654645d28de86d7.JPG?1492399162\",\"avatar_static\":\"https://mstdn.maud.io/system/accounts/avatars/000/007/335/original/d654645d28de86d7.JPG?1492399162\",\"header\