{"id":182,"date":"2008-12-18T23:49:41","date_gmt":"2008-12-18T14:49:41","guid":{"rendered":"http:\/\/dev.activebasic.com\/egtra\/?p=182"},"modified":"2013-05-04T18:02:07","modified_gmt":"2013-05-04T09:02:07","slug":"%e6%88%91%e3%82%82%e7%b8%a6%e6%9b%b8%e3%81%8d","status":"publish","type":"post","link":"https:\/\/dev.activebasic.com\/egtra\/2008\/12\/18\/182\/","title":{"rendered":"\u6211\u3082\u7e26\u66f8\u304d"},"content":{"rendered":"<p>\u5143\u30cd\u30bf<a href=\"http:\/\/d.hatena.ne.jp\/faith_and_brave\/20081218\/1229578479\">\u7d9a\u30fb\u7e26\u66f8\u304d<\/a>\u3002<\/p>\n<p>\uff08\u5927\u5143\u30cd\u30bf\u306e\u65b9\u9762\u306f\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u3059\u308b\u8a71\u3067\u306f\u306a\u304b\u3063\u305f\u3088\u3046\u3067\u3059\u304c\u3002<a href=\"http:\/\/blogs.wankuma.com\/hatsune\/archive\/2008\/12\/16\/163899.aspx\">PC\u306b\u7e26\u66f8\u304d\u304c\u9069\u3055\u306a\u3044\u304b\u3089\u3084\u3081\u308b\u306e\uff1f<\/a>\u3001<a href=\"http:\/\/blogs.wankuma.com\/ognac\/archive\/2008\/12\/17\/164062.aspx\">\u30d7\u30c1\u796d\u308a\u300c\u7e26\u66f8\u3084\u5143\u53f7?\u300d<\/a>\uff09<\/p>\n<p>\u3053\u3046\u3044\u3046\u306e\u306fC++\u3067Oven\u3060\u308d\u3001\u3068\u3044\u3046\u3053\u3068\u3067\u521d\u3081zipped\u3067\u3084\u308d\u3046\u3068\u3057\u307e\u3057\u305f\u304c\u3001\u3053\u308c\u30c6\u30f3\u30d7\u30ec\u30fc\u30c8\u306a\u3093\u3067\u30b3\u30f3\u30d1\u30a4\u30eb\u6642\u306b\u884c\u6570\u3092\u6c7a\u3081\u3056\u308b\u3092\u5f97\u306a\u3044\u3093\u3067\u3059\u3088\u306d\u3002<\/p>\n<p>\u3068\u3044\u3046\u308f\u3051\u3067\u3001Scheme\u3001\u305d\u308c\u3082\u305b\u3063\u304b\u304f\u306a\u306e\u3067\u4eca\u307e\u3067\u4f7f\u3063\u305f\u3053\u3068\u306e\u306a\u3044Gauche\u3067\u3084\u3063\u3066\u307f\u307e\u3057\u305f\u3002\u5225\u306b\u77ed\u304f\u3068\u304b1\u884c\u3068\u304b\u306f\u8003\u3048\u3066\u3044\u307e\u305b\u3093\u306e\u3067\u3042\u3057\u304b\u3089\u305a\u3002<\/p>\n<pre lang=\"scheme\">(define (vertical-map l proc space)\r\n  (define (maybe-lambda proc space)\r\n    (lambda (l) (if (null? l) space (proc l))))\r\n  (if (not (fold (lambda (l b) (and (null? l) b)) #t l))\r\n    (begin\r\n      (proc (map (maybe-lambda car space) l))\r\n      (vertical-map (map (maybe-lambda cdr ()) l) proc space))))\r\n\r\n(define (print-vertical-string l)\r\n  (vertical-map\r\n    (map string->list (reverse l))\r\n    (lambda (x)\r\n      (map write-char x)\r\n      (newline))\r\n    #\\\\space)\r\n  (newline))<\/pre>\n<p>\u306f\u3044\u3001Scheme\u521d\u5fc3\u8005\u3067\u3059\u3002\u3050\u3057\u3083\u3050\u3057\u3083\u3067\u3059\u304c\u3001\u884c\u304d\u5f53\u305f\u308a\u3070\u3063\u305f\u308a\u3067\u66f8\u3044\u3066\u3082\u51fa\u6765\u4e0a\u304c\u308b\u3068\u3053\u308d\u304c\u7d20\u6575\u3067\u3059\u3002<\/p>\n<pre lang=\"scheme\">(print-vertical-string '(\r\n  \"WINDY\"\r\n  \"WOOD\"\r\n  \"JUMP\"\r\n  \"FLY\"\r\n  \"WATERY\"\r\n  \"ILLUSION\"))<\/pre>\n<pre><samp>IWFJWW\r\nLALUOI\r\nLTYMON\r\nUE PDD\r\nSR   Y\r\nIY\r\nO\r\nN<\/samp><\/pre>\n<p>\u3061\u306a\u307f\u306b\u3001\u6700\u521d\u306f\u884c\u306e\u9577\u3055\u304c\u63c3\u3063\u3066\u3044\u308b\u5fc5\u8981\u306e\u3042\u308b\u3082\u306e\u3092\u4f5c\u3063\u3066\u3044\u305f\u306e\u3067\u3059\u304c\u3001\u30de\u30af\u30ed\u3067\u3082\u306a\u3044\u306e\u306b\u30d0\u30c3\u30af\u30af\u30a9\u30fc\u30c8\u30fb\u30b3\u30f3\u30de\u306a\u3069\u306e\u51fa\u756a\u3068\u76f8\u6210\u308a\u307e\u3057\u305f\u3002\u307e\u3060\u3053\u306e\u7a0b\u5ea6\u3067\u304a\u3069\u308d\u304f\u3088\u3046\u306a\u3072\u3088\u3063\u3053\u3067\u3059\u3002<\/p>\n<pre lang=\"scheme\">(define (print-vertical-string l)\r\n  (apply map\r\n    `(\r\n      ,(lambda x\r\n        (map write-char (reverse x))\r\n        (newline))\r\n      ,@(map string->list l))))<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u5143\u30cd\u30bf\u7d9a\u30fb\u7e26\u66f8\u304d\u3002 \uff08\u5927\u5143\u30cd\u30bf\u306e\u65b9\u9762\u306f\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u3059\u308b\u8a71\u3067\u306f\u306a\u304b\u3063\u305f\u3088\u3046\u3067\u3059\u304c\u3002PC\u306b\u7e26\u66f8\u304d\u304c\u9069\u3055\u306a\u3044\u304b\u3089\u3084\u3081\u308b\u306e\uff1f\u3001\u30d7\u30c1\u796d\u308a\u300c\u7e26\u66f8\u3084\u5143\u53f7?\u300d\uff09 \u3053\u3046\u3044\u3046\u306e\u306fC++\u3067Oven\u3060\u308d\u3001\u3068\u3044\u3046\u3053\u3068\u3067\u521d\u3081zipped\u3067\u3084\u308d\u3046\u3068 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[24,14],"tags":[],"class_list":["post-182","post","type-post","status-publish","format-standard","hentry","category-scheme","category-character"],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v23.0 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>\u6211\u3082\u7e26\u66f8\u304d - \u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d<\/title>\n<meta name=\"description\" content=\"\u5143\u30cd\u30bf\u7d9a\u30fb\u7e26\u66f8\u304d\u3002 \uff08\u5927\u5143\u30cd\u30bf\u306e\u65b9\u9762\u306f\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u3059\u308b\u8a71\u3067\u306f\u306a\u304b\u3063\u305f\u3088\u3046\u3067\u3059\u304c\u3002PC\u306b\u7e26\u66f8\u304d\u304c\u9069\u3055\u306a\u3044\u304b\u3089\u3084\u3081\u308b\u306e\uff1f\u3001\u30d7\u30c1\u796d\u308a\u300c\u7e26\u66f8\u3084\u5143\u53f7?\u300d\uff09\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/dev.activebasic.com\/egtra\/2008\/12\/18\/182\/\" \/>\n<meta property=\"og:locale\" content=\"ja_JP\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"\u6211\u3082\u7e26\u66f8\u304d - \u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d\" \/>\n<meta property=\"og:description\" content=\"\u5143\u30cd\u30bf\u7d9a\u30fb\u7e26\u66f8\u304d\u3002 \uff08\u5927\u5143\u30cd\u30bf\u306e\u65b9\u9762\u306f\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u3059\u308b\u8a71\u3067\u306f\u306a\u304b\u3063\u305f\u3088\u3046\u3067\u3059\u304c\u3002PC\u306b\u7e26\u66f8\u304d\u304c\u9069\u3055\u306a\u3044\u304b\u3089\u3084\u3081\u308b\u306e\uff1f\u3001\u30d7\u30c1\u796d\u308a\u300c\u7e26\u66f8\u3084\u5143\u53f7?\u300d\uff09\" \/>\n<meta property=\"og:url\" content=\"https:\/\/dev.activebasic.com\/egtra\/2008\/12\/18\/182\/\" \/>\n<meta property=\"og:site_name\" content=\"\u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d\" \/>\n<meta property=\"article:publisher\" content=\"https:\/\/www.facebook.com\/ysk.noh\" \/>\n<meta property=\"article:published_time\" content=\"2008-12-18T14:49:41+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2013-05-04T09:02:07+00:00\" \/>\n<meta name=\"author\" content=\"egtra\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:creator\" content=\"@egtra\" \/>\n<meta name=\"twitter:site\" content=\"@egtra\" \/>\n<meta name=\"twitter:label1\" content=\"\u57f7\u7b46\u8005\" \/>\n\t<meta name=\"twitter:data1\" content=\"egtra\" \/>\n\t<meta name=\"twitter:label2\" content=\"\u63a8\u5b9a\u8aad\u307f\u53d6\u308a\u6642\u9593\" \/>\n\t<meta name=\"twitter:data2\" content=\"1\u5206\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/dev.activebasic.com\/egtra\/2008\/12\/18\/182\/\",\"url\":\"https:\/\/dev.activebasic.com\/egtra\/2008\/12\/18\/182\/\",\"name\":\"\u6211\u3082\u7e26\u66f8\u304d - \u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d\",\"isPartOf\":{\"@id\":\"https:\/\/dev.activebasic.com\/egtra\/#website\"},\"datePublished\":\"2008-12-18T14:49:41+00:00\",\"dateModified\":\"2013-05-04T09:02:07+00:00\",\"author\":{\"@id\":\"https:\/\/dev.activebasic.com\/egtra\/#\/schema\/person\/8de756b2ff20b964f64594dfe8f18164\"},\"description\":\"\u5143\u30cd\u30bf\u7d9a\u30fb\u7e26\u66f8\u304d\u3002 \uff08\u5927\u5143\u30cd\u30bf\u306e\u65b9\u9762\u306f\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u3059\u308b\u8a71\u3067\u306f\u306a\u304b\u3063\u305f\u3088\u3046\u3067\u3059\u304c\u3002PC\u306b\u7e26\u66f8\u304d\u304c\u9069\u3055\u306a\u3044\u304b\u3089\u3084\u3081\u308b\u306e\uff1f\u3001\u30d7\u30c1\u796d\u308a\u300c\u7e26\u66f8\u3084\u5143\u53f7?\u300d\uff09\",\"breadcrumb\":{\"@id\":\"https:\/\/dev.activebasic.com\/egtra\/2008\/12\/18\/182\/#breadcrumb\"},\"inLanguage\":\"ja\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/dev.activebasic.com\/egtra\/2008\/12\/18\/182\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/dev.activebasic.com\/egtra\/2008\/12\/18\/182\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"\u30db\u30fc\u30e0\",\"item\":\"https:\/\/dev.activebasic.com\/egtra\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"\u6211\u3082\u7e26\u66f8\u304d\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/dev.activebasic.com\/egtra\/#website\",\"url\":\"https:\/\/dev.activebasic.com\/egtra\/\",\"name\":\"\u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d\",\"description\":\"\u982d\u306e\u4e2d\u306e\u304b\u3051\u3089\u3002ActiveBasic\u3092\u4e2d\u5fc3\u306b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u306e\u8a71\u3092\u307c\u3061\u307c\u3061\u3068\u3002\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/dev.activebasic.com\/egtra\/?s={search_term_string}\"},\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"ja\"},{\"@type\":\"Person\",\"@id\":\"https:\/\/dev.activebasic.com\/egtra\/#\/schema\/person\/8de756b2ff20b964f64594dfe8f18164\",\"name\":\"egtra\",\"sameAs\":[\"https:\/\/x.com\/egtra\"],\"url\":\"https:\/\/dev.activebasic.com\/egtra\/author\/admin\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"\u6211\u3082\u7e26\u66f8\u304d - \u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d","description":"\u5143\u30cd\u30bf\u7d9a\u30fb\u7e26\u66f8\u304d\u3002 \uff08\u5927\u5143\u30cd\u30bf\u306e\u65b9\u9762\u306f\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u3059\u308b\u8a71\u3067\u306f\u306a\u304b\u3063\u305f\u3088\u3046\u3067\u3059\u304c\u3002PC\u306b\u7e26\u66f8\u304d\u304c\u9069\u3055\u306a\u3044\u304b\u3089\u3084\u3081\u308b\u306e\uff1f\u3001\u30d7\u30c1\u796d\u308a\u300c\u7e26\u66f8\u3084\u5143\u53f7?\u300d\uff09","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/dev.activebasic.com\/egtra\/2008\/12\/18\/182\/","og_locale":"ja_JP","og_type":"article","og_title":"\u6211\u3082\u7e26\u66f8\u304d - \u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d","og_description":"\u5143\u30cd\u30bf\u7d9a\u30fb\u7e26\u66f8\u304d\u3002 \uff08\u5927\u5143\u30cd\u30bf\u306e\u65b9\u9762\u306f\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u3059\u308b\u8a71\u3067\u306f\u306a\u304b\u3063\u305f\u3088\u3046\u3067\u3059\u304c\u3002PC\u306b\u7e26\u66f8\u304d\u304c\u9069\u3055\u306a\u3044\u304b\u3089\u3084\u3081\u308b\u306e\uff1f\u3001\u30d7\u30c1\u796d\u308a\u300c\u7e26\u66f8\u3084\u5143\u53f7?\u300d\uff09","og_url":"https:\/\/dev.activebasic.com\/egtra\/2008\/12\/18\/182\/","og_site_name":"\u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d","article_publisher":"https:\/\/www.facebook.com\/ysk.noh","article_published_time":"2008-12-18T14:49:41+00:00","article_modified_time":"2013-05-04T09:02:07+00:00","author":"egtra","twitter_card":"summary_large_image","twitter_creator":"@egtra","twitter_site":"@egtra","twitter_misc":{"\u57f7\u7b46\u8005":"egtra","\u63a8\u5b9a\u8aad\u307f\u53d6\u308a\u6642\u9593":"1\u5206"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/dev.activebasic.com\/egtra\/2008\/12\/18\/182\/","url":"https:\/\/dev.activebasic.com\/egtra\/2008\/12\/18\/182\/","name":"\u6211\u3082\u7e26\u66f8\u304d - \u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d","isPartOf":{"@id":"https:\/\/dev.activebasic.com\/egtra\/#website"},"datePublished":"2008-12-18T14:49:41+00:00","dateModified":"2013-05-04T09:02:07+00:00","author":{"@id":"https:\/\/dev.activebasic.com\/egtra\/#\/schema\/person\/8de756b2ff20b964f64594dfe8f18164"},"description":"\u5143\u30cd\u30bf\u7d9a\u30fb\u7e26\u66f8\u304d\u3002 \uff08\u5927\u5143\u30cd\u30bf\u306e\u65b9\u9762\u306f\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u3059\u308b\u8a71\u3067\u306f\u306a\u304b\u3063\u305f\u3088\u3046\u3067\u3059\u304c\u3002PC\u306b\u7e26\u66f8\u304d\u304c\u9069\u3055\u306a\u3044\u304b\u3089\u3084\u3081\u308b\u306e\uff1f\u3001\u30d7\u30c1\u796d\u308a\u300c\u7e26\u66f8\u3084\u5143\u53f7?\u300d\uff09","breadcrumb":{"@id":"https:\/\/dev.activebasic.com\/egtra\/2008\/12\/18\/182\/#breadcrumb"},"inLanguage":"ja","potentialAction":[{"@type":"ReadAction","target":["https:\/\/dev.activebasic.com\/egtra\/2008\/12\/18\/182\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/dev.activebasic.com\/egtra\/2008\/12\/18\/182\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"\u30db\u30fc\u30e0","item":"https:\/\/dev.activebasic.com\/egtra\/"},{"@type":"ListItem","position":2,"name":"\u6211\u3082\u7e26\u66f8\u304d"}]},{"@type":"WebSite","@id":"https:\/\/dev.activebasic.com\/egtra\/#website","url":"https:\/\/dev.activebasic.com\/egtra\/","name":"\u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d","description":"\u982d\u306e\u4e2d\u306e\u304b\u3051\u3089\u3002ActiveBasic\u3092\u4e2d\u5fc3\u306b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u306e\u8a71\u3092\u307c\u3061\u307c\u3061\u3068\u3002","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/dev.activebasic.com\/egtra\/?s={search_term_string}"},"query-input":"required name=search_term_string"}],"inLanguage":"ja"},{"@type":"Person","@id":"https:\/\/dev.activebasic.com\/egtra\/#\/schema\/person\/8de756b2ff20b964f64594dfe8f18164","name":"egtra","sameAs":["https:\/\/x.com\/egtra"],"url":"https:\/\/dev.activebasic.com\/egtra\/author\/admin\/"}]}},"_links":{"self":[{"href":"https:\/\/dev.activebasic.com\/egtra\/wp-json\/wp\/v2\/posts\/182"}],"collection":[{"href":"https:\/\/dev.activebasic.com\/egtra\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/dev.activebasic.com\/egtra\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/dev.activebasic.com\/egtra\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/dev.activebasic.com\/egtra\/wp-json\/wp\/v2\/comments?post=182"}],"version-history":[{"count":0,"href":"https:\/\/dev.activebasic.com\/egtra\/wp-json\/wp\/v2\/posts\/182\/revisions"}],"wp:attachment":[{"href":"https:\/\/dev.activebasic.com\/egtra\/wp-json\/wp\/v2\/media?parent=182"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/dev.activebasic.com\/egtra\/wp-json\/wp\/v2\/categories?post=182"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/dev.activebasic.com\/egtra\/wp-json\/wp\/v2\/tags?post=182"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}