Skip to content

Instantly share code, notes, and snippets.

@keiji-mu

keiji-mu/q835.lisp

Last active August 29, 2015 14:01
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save keiji-mu/a69850ca3144865a75e0 to your computer and use it in GitHub Desktop.
Save keiji-mu/a69850ca3144865a75e0 to your computer and use it in GitHub Desktop.
Download ZIP
CodeIQ 835 「第2回デスマコロシアム」 再提出の CommonLisp 94文字コードと、逃走前の Ruby 60文字コード
Raw
q835.lisp
(do((s"`@ぁァァぁ@`"(princ(map'string(lambda(c)(code-char(1+(char-code c))))s))))((string> s"z")))
Raw
q835.rb
#coding:utf-8
a='`@ぁァァぁ@`';26.times{$><<a.gsub!(/./,&:next)}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment