{"action":"opened","issue":{"url":"https://api.github.com/repos/hidekuno/go-scheme/issues/46","repository_url":"https://api.github.com/repos/hidekuno/go-scheme","labels_url":"https://api.github.com/repos/hidekuno/go-scheme/issues/46/labels{/name}","comments_url":"https://api.github.com/repos/hidekuno/go-scheme/issues/46/comments","events_url":"https://api.github.com/repos/hidekuno/go-scheme/issues/46/events","html_url":"https://github.com/hidekuno/go-scheme/issues/46","id":344660140,"node_id":"MDU6SXNzdWUzNDQ2NjAxNDA=","number":46,"title":"パフォーマンスが劣化する","user":{"login":"hidekuno","id":22115777,"node_id":"MDQ6VXNlcjIyMTE1Nzc3","avatar_url":"https://avatars1.githubusercontent.com/u/22115777?v=4","gravatar_id":"","url":"https://api.github.com/users/hidekuno","html_url":"https://github.com/hidekuno","followers_url":"https://api.github.com/users/hidekuno/followers","following_url":"https://api.github.com/users/hidekuno/following{/other_user}","gists_url":"https://api.github.com/users/hidekuno/gists{/gist_id}","starred_url":"https://api.github.com/users/hidekuno/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/hidekuno/subscriptions","organizations_url":"https://api.github.com/users/hidekuno/orgs","repos_url":"https://api.github.com/users/hidekuno/repos","events_url":"https://api.github.com/users/hidekuno/events{/privacy}","received_events_url":"https://api.github.com/users/hidekuno/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"assignees":[],"milestone":null,"comments":0,"created_at":"2018-07-26T01:17:37Z","updated_at":"2018-07-26T01:17:37Z","closed_at":null,"author_association":"OWNER","body":"実験結果はこの通り\r\n```\r\n[kunohi@centos7-dev-docker src]$ go run lisp_main_dev.go lisp.go\r\nscheme.go>  (define test-list (map (lambda (n) (rand-integer 10000))(iota 600)))\r\ntest-list\r\nscheme.go>  (define qsort\r\n  (lambda (l)\r\n    (if (null? l) l\r\n        (append (qsort (filter (lambda (n) (< n (car l))) (cdr l)))\r\n                (cons (car l) (qsort (filter (lambda (n) (not (< n (car l))))(cdr l)) ))))))\r\n    qsort\r\nscheme.go>  (time (qsort test-list))\r\n740.788075ms\r\nnil\r\nscheme.go>  (time (qsort test-list))\r\n2.624298923s\r\nnil\r\nscheme.go>  (time (qsort test-list))\r\n4.897149342s\r\nnil\r\nscheme.go>  (time (qsort test-list))\r\n7.732988955s\r\nnil\r\nscheme.go>\r\n```"}}
{"actor":{"display_login":"hidekuno"}}