<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<title>Lisp on akky@サイボウズラボ・ブログ</title>
		<link>https://labs.cybozu.co.jp/blog/akky/tags/lisp/</link>
		<description>Recent content in Lisp on akky@サイボウズラボ・ブログ</description>
		<generator>Hugo</generator>
		<language>ja</language>
		
		
		
		
			<lastBuildDate>Fri, 08 May 2020 00:00:00 +0000</lastBuildDate>
		
			<atom:link href="https://labs.cybozu.co.jp/blog/akky/tags/lisp/index.xml" rel="self" type="application/rss+xml" />
			<item>
				<title>オリジナルZorkのソースコードがMITにより公開される</title>
				<link>https://labs.cybozu.co.jp/blog/akky/2020/05/original-mit-zork-code-found/</link>
				<pubDate>Fri, 08 May 2020 00:00:00 +0000</pubDate>
				<guid>https://labs.cybozu.co.jp/blog/akky/2020/05/original-mit-zork-code-found/</guid>
				<description>&lt;p&gt;往年のテキストアドベンチャーゲーム &lt;a href=&#34;https://github.com/MITDDC/zork&#34;&gt;Zork の1977年のソースコード&lt;/a&gt;が、&lt;a href=&#34;https://archivesspace.mit.edu/repositories/2/archival_objects/347748&#34;&gt;MITにより発見されて&lt;/a&gt;公開されました。&lt;/p&gt;&#xA;&lt;p&gt;&lt;a href=&#34;https://archivesspace.mit.edu/repositories/2/archival_objects/347748&#34;&gt;MIT の説明&lt;/a&gt;によれば、1973年から1990年前半にかけての人工知能研・計算機科学研のバックアップテープから復元したデータが収集されているそうで、今回はその中から1977年のZork のソースコードが見つかったというわけ。&lt;/p&gt;&#xA;&lt;p&gt;コードを見てみるとこんな感じ。&lt;/p&gt;&#xA;&lt;blockquote&gt;&#xA;&lt;p&gt;&lt;code&gt;&amp;lt;GDECL (FF) STRING&amp;gt; &amp;lt;DEFINE ILO (BODY TYPE NM1 NM2 &amp;quot;OPTIONAL&amp;quot; M1 M2) #DECL ((BODY NM1 NM2 M1 M2) STRING (TYPE) FIX) &amp;lt;COND (&amp;lt;==? .TYPE *400000000000*&amp;gt; &amp;lt;COND (&amp;lt;OR &amp;lt;AND &amp;lt;MEMBER &amp;quot;&amp;lt;FLUSH-ME&amp;gt;&amp;quot; .BODY&amp;gt; &amp;lt;NOT &amp;lt;MEMBER ,XUNM ,WINNERS&amp;gt;&amp;gt;&amp;gt; &amp;lt;AND &amp;lt;MEMBER .NM1 ,WINNERS&amp;gt; &amp;lt;MEMBER ,FF .BODY&amp;gt;&amp;gt;&amp;gt; &amp;lt;EVAL &amp;lt;PARSE .BODY&amp;gt;&amp;gt;)&amp;gt;)&amp;gt; &amp;lt;DISMISS T&amp;gt;&amp;gt;  ;&amp;quot;ROOM FUNCTIONS&amp;quot;&lt;/code&gt;&lt;/p&gt;&#xA;&lt;/blockquote&gt;&#xA;&lt;p&gt;往年のメインフレーム機 PDP-10 上で動くLISP系のMDPという言語だそうです。&lt;/p&gt;&#xA;&lt;p&gt;&lt;a href=&#34;https://www.vice.com/en_us/article/a3xdk8/long-lost-zork-source-code-uploaded-to-github-but-few-people-understand-it&#34;&gt;2019年の4月にGitHubで公開された「Zorkのソースコード」&lt;/a&gt;と何が違うかですが、この時公開されたコードは、後に Zork を商用化(1979)して販売したインフォコム社が買収の後閉鎖された1980年代終わりに、社内のソースコード管理システムから取り出されたものなのに対し、今回のコードはInfocom 以前の MIT 時代に メインフレーム PDP-10 の上で動いていたものだということ。&lt;/p&gt;&#xA;&lt;p&gt;&lt;a href=&#34;https://commons.wikimedia.org/wiki/File:PDP-10_1090.jpg&#34;&gt;&lt;picture&gt;&#xA;  &lt;source type=&#34;image/webp&#34; srcset=&#34;https://labs.cybozu.co.jp/blog/akky/2020/05/original-mit-zork-code-found/PDP-10_1090_hu_a48329cdd9d409af.webp 480w, https://labs.cybozu.co.jp/blog/akky/2020/05/original-mit-zork-code-found/PDP-10_1090_hu_9dd9c52b9ab85a2.webp 768w, https://labs.cybozu.co.jp/blog/akky/2020/05/original-mit-zork-code-found/PDP-10_1090_hu_cd5c0abe0e8635b3.webp 896w&#34; sizes=&#34;(max-width: 56rem) 100vw, 54rem&#34;&gt;&#xA;  &lt;img src=&#34;https://labs.cybozu.co.jp/blog/akky/2020/05/original-mit-zork-code-found/PDP-10_1090.jpg&#34; width=&#34;896&#34; height=&#34;600&#34; alt=&#34;&#34; loading=&#34;lazy&#34; decoding=&#34;async&#34;&gt;&#xA;&lt;/picture&gt;&lt;/a&gt;&lt;/p&gt;</description>
			</item>
	</channel>
</rss>
