ルビー、日本語-AkaDama
日本語でRubyがあるrubii（ルビー）、退屈ですので、私は文字通りそれを名付けた赤い宝石を。
ルビーでは、変数とメソッドはASCIIに限定されないため、
def フロートの文字化(フロート)
甲 = フロート.to_s.split(?.)
甲[0] = 整数の文字化(甲[0])
甲[1] = 甲[1].chars.map{|乙|R数字行列[乙]}.join
甲.join(?点)
end
有効なルビーです。すべてのベースの難読化に可能な限りこれを使用しています。
rubyの解析にgemを使用しても問題ないことを願っていますが、それでもstillいモンキーパッチが必要です。
を展開して、TRANS_TABLEさらにメソッドの翻訳を追加できます。表にないものはすべて、その発音に基づいて大まかに日本語に「翻訳」されます（またはスペルに似ています）。したがって、eatはえあと（「a-ah-toe」）になります。
整数を「非常に」実用的な表記に変換します。
# encoding:utf-8
require 'parser/current'
# super hack, don't try this at home!!
class Array
def freeze
self
end
end
class Hash
def freeze
self
end
end
class Parser::AST::Node
def freeze
self
end
end
require 'unparser'
class Parser::Source::Comment
def freeze
self
end
end
# translation memory
R翻訳メモリー = {}
# keyword translation
R鍵文字 = {
:BEGIN => [:K_PREEXE, :"コンパイル時に最初に登録"],
:END => [:K_POSTEXE, :"コンパイル時に最後に登録"],
:__ENCODING__ => [:K_ENCODING, :"__エンコーディング__"],
:__END__ => [:K_EEND, :"__終__"],
:__FILE__ => [:K_FILE, :"__ソースファイル名__"],
:alias => [:K_ALIAS, :"別名"],
:and => [:K_AND, :"且つ"],
:begin => [:K_BEGIN, :"開始"],
:break => [:K_BREAK, :"抜ける"],
:case => [:K_CASE, :"条件分岐"],
:class => [:K_CLASS, :"クラス"],
:def => [:K_DEF, :"定義"],
:define => [:K_DEFINE, :""],
:defined? => [:K_DEFINED, :"若し定義されたら"],
:do => [:K_DO, :"実行"],
:else => [:K_ELSE, :"違えば"],
:elsif => [:K_ELSIF, :"それとも"],
:end => [:K_END, :"此処迄"],
:ensure => [:K_ENSURE, :"必ず実行"],
:false => [:K_FALSE, :"偽"],
:for => [:K_FOR, :"変数"],
:if => [:K_IF, :"若し"],
:in => [:K_IN, :"の次の値ごとに"],
:module => [:K_MODULE, :"モジュール"],
:next => [:K_NEXT, :"次"],
:nil => [:K_NIL, :"無"],
:not => [:K_NOT, :"ノット"],
:or => [:K_OR, :"又は"],
:redo => [:K_REDO, :"遣り直す"],
:rescue => [:K_RESCUE, :"救出"],
:retry => [:K_RETRY, :"再び試みる"],
:return => [:K_RETURN, :"戻る"],
:self => [:K_SELF, :"自身"],
:super => [:K_SUPER, :"スーパー"],
:then => [:K_THEN, :"成らば"],
:true => [:K_TRUE, :"真"],
:undef => [:K_UNDEF, :"定義を取消す"],
:unless => [:K_UNLESS, :"若し違えば"],
:until => [:K_UNTIL, :"次の通りである限り"],
:when => [:K_WHEN, :"場合"],
:while => [:K_WHILE, :"次の通りで無い限り"],
:yield => [:K_YIELD, :"ブロックを呼び出す"],
}
R数字行列 = {
"0" => "零",
"1" => "壹",
"2" => "貮",
"3" => "參",
"4" => "肆",
"5" => "伍",
"6" => "陸",
"7" => "漆",
"8" => "捌",
"9" => "玖",
}
R翻訳行列 = {
# Symbols
:+ => :+,
:- => :-,
:/ => :/,
:* => :*,
:** => :**,
:! => :!,
:^ => :^,
:& => :&,
:| => :|,
:~ => :~,
:> => :>,
:< => :<,
:<< => :<<,
:% => :%,
:"!=" => :"!=",
:"=~" => :"=~",
:"~=" => :"~=",
:">=" => :">=",
:"<=" => :"<=",
:"=" => :"=",
:"==" => :"==",
:"===" => :"===",
:"<=>" => :"<=>",
:"[]" => :"[]",
:"[]=" => :"[]=",
:"!~" => :"!~",
# Errors
:ArgumentError => :引数エラー,
:EncodingError => :文字コードエラー,
:FiberError => :ファイバーエラー,
:IOError => :入出エラー,
:IndexError => :添字エラー,
:LoadError => :読込エラー,
:LocalJumpError => :エラー,
:NameError => :未定義エラー,
:NoMemoryError => :メモリー不足エラー,
:NotImplementedError => :未実装エラー,
:RangeError => :範囲エラー,
:RegexpError => :正規表現エラー,
:RuntimeError => :実行時エラー,
:ScriptError => :スクリプトエラー,
:SecurityError => :セキュリティエラー,
:StandardError => :通常エラー,
:SyntaxError => :シンタクスエラー,
:ThreadError => :スレッドエラー,
:TypeError => :タイプエラー,
:ZeroDivisionError => :零除算エラー,
# Constants
:Array => :配列,
:BasicObject => :基本オブジェクト,
:Bignum => :多倍長整数,
:Class => :クラス,
:Complex => :複素数,
:Exception => :例外,
:FalseClass => :偽クラス,
:File => :ファイル,
:Fiber => :ファイバー,
:Fixnum => :固定長整数,
:Float => :浮動小数点数,
:Hash => :ハッシュ表,
:Integer => :整数,
:IO => :入出,
:Kernel => :中核,
:Marshal => :元帥,
:Math => :数学,
:Module => :モジュール,
:NilClass => :無クラス,
:Numeric => :数値,
:Object => :オブジェクト,
:Prime => :素数,
:Proc => :プロック,
:Process => :プロセス,
:Random => :乱数,
:Range => :範囲,
:Rational => :有理数,
:Regexp => :正規表現,
:Set => :集合,
:Socket => :ソケット,
:String => :文字列,
:Symbol => :シンボル,
:Time => :時刻,
:Thread => :スレッド,
:TrueClass => :真クラス,
# Kernel
:inspect => :検査,
:p => :表示,
:print => :書く,
:puts => :言う,
:require => :取り込む,
# Object
:freeze => :凍結,
# String
:gsub => :全文字列置換,
:gsub! => :全文字列置換せよ,
}
INT_TABLE = [
[7, "倶胝"],
[14, "阿庾多"],
[28, "那由他"],
[56, "頻波羅"],
[112, "矜羯羅"],
[224, "阿伽羅"],
[448, "最勝"],
[896, "摩婆羅"],
[1792, "阿婆羅"],
[3584, "多婆羅"],
[7168, "界分"],
[14336, "普摩"],
[28672, "禰摩"],
[57344, "阿婆鈐"],
[114688, "弥伽婆"],
[229376, "毘攞伽"],
[458752, "毘伽婆"],
[917504, "僧羯邏摩"],
[1835008, "毘薩羅"],
[3670016, "毘贍婆"],
[7340032, "毘盛伽"],
[14680064, "毘素陀"],
[29360128, "毘婆訶"],
[58720256, "毘薄底"],
[117440512, "毘佉擔"],
[234881024, "称量"],
[469762048, "一持"],
[939524096, "異路"],
[1879048192, "顛倒"],
[3758096384, "三末耶"],
[7516192768, "毘睹羅"],
[15032385536, "奚婆羅"],
[30064771072, "伺察"],
[60129542144, "周広"],
[120259084288, "高出"],
[240518168576, "最妙"],
[481036337152, "泥羅婆"],
[962072674304, "訶理婆"],
[1924145348608, "一動"],
[3848290697216, "訶理蒲"],
[7696581394432, "訶理三"],
[15393162788864, "奚魯伽"],
[30786325577728, "達攞歩陀"],
[61572651155456, "訶魯那"],
[123145302310912, "摩魯陀"],
[246290604621824, "懺慕陀"],
[492581209243648, "瑿攞陀"],
[985162418487296, "摩魯摩"],
[1970324836974592, "調伏"],
[3940649673949184, "離憍慢"],
[7881299347898368, "不動"],
[15762598695796736, "極量"],
[31525197391593472, "阿麼怛羅"],
[63050394783186944, "勃麼怛羅"],
[126100789566373888, "伽麼怛羅"],
[252201579132747776, "那麼怛羅"],
[504403158265495552, "奚麼怛羅"],
[1008806316530991104, "鞞麼怛羅"],
[2017612633061982208, "鉢羅麼怛羅"],
[4035225266123964416, "尸婆麼怛羅"],
[8070450532247928832, "翳羅"],
[16140901064495857664, "薜羅"],
[32281802128991715328, "諦羅"],
[64563604257983430656, "偈羅"],
[129127208515966861312, "窣歩羅"],
[258254417031933722624, "泥羅"],
[516508834063867445248, "計羅"],
[1033017668127734890496, "細羅"],
[2066035336255469780992, "睥羅"],
[4132070672510939561984, "謎羅"],
[8264141345021879123968, "娑攞荼"],
[16528282690043758247936, "謎魯陀"],
[33056565380087516495872, "契魯陀"],
[66113130760175032991744, "摩睹羅"],
[132226261520350065983488, "娑母羅"],
[264452523040700131966976, "阿野娑"],
[528905046081400263933952, "迦麼羅"],
[1057810092162800527867904, "摩伽婆"],
[2115620184325601055735808, "阿怛羅"],
[4231240368651202111471616, "醯魯耶"],
[8462480737302404222943232, "薜魯婆"],
[16924961474604808445886464, "羯羅波"],
[33849922949209616891772928, "訶婆婆"],
[67699845898419233783545856, "毘婆羅"],
[135399691796838467567091712, "那婆羅"],
[270799383593676935134183424, "摩攞羅"],
[541598767187353870268366848, "娑婆羅"],
[1083197534374707740536733696, "迷攞普"],
[2166395068749415481073467392, "者麼羅"],
[4332790137498830962146934784, "駄麼羅"],
[8665580274997661924293869568, "鉢攞麼陀"],
[17331160549995323848587739136, "毘迦摩"],
[34662321099990647697175478272, "烏波跋多"],
[69324642199981295394350956544, "演説"],
[138649284399962590788701913088, "無尽"],
[277298568799925181577403826176, "出生"],
[554597137599850363154807652352, "無我"],
[1109194275199700726309615304704, "阿畔多"],
[2218388550399401452619230609408, "青蓮華"],
[4436777100798802905238461218816, "鉢頭摩"],
[8873554201597605810476922437632, "僧祇"],
[17747108403195211620953844875264, "趣"],
[35494216806390423241907689750528, "至"],
[70988433612780846483815379501056, "阿僧祇"],
[141976867225561692967630759002112, "阿僧祇転"],
[283953734451123385935261518004224, "無量"],
[567907468902246771870523036008448, "無量転"],
[1135814937804493543741046072016896, "無辺"],
[2271629875608987087482092144033792, "無辺転"],
[4543259751217974174964184288067584, "無等"],
[9086519502435948349928368576135168, "無等転"],
[18173039004871896699856737152270336, "不可数"],
[36346078009743793399713474304540672, "不可数転"],
[72692156019487586799426948609081344, "不可称"],
[145384312038975173598853897218162688, "不可称転"],
[290768624077950347197707794436325376, "不可思"],
[581537248155900694395415588872650752, "不可思転"],
[1163074496311801388790831177745301504, "不可量"],
[2326148992623602777581662355490603008, "不可量転"],
[4652297985247205555163324710981206016, "不可説"],
[9304595970494411110326649421962412032, "不可説転"],
[18609191940988822220653298843924824064, "不可説不可説"],
[37218383881977644441306597687849648128, "不可説不可説転"],
].reverse
Rしヴぁう = {
:b => :u,
:c => :u,
:d => :o,
:f => :u,
:g => :u,
:h => :u,
:j => :u,
:k => :u,
:l => :u,
:m => :u,
:n => :u,
:p => :u,
:q => :u,
:r => :u,
:s => :u,
:t => :o,
:v => :u,
:w => :u,
:x => :u,
:y => :u,
:z => :u,
}
R平 = {
:a => :あ, :i => :い, :u => :う, :e => :え, :o => :お,
:ba => :ば, :bi => :び, :bu => :ぶ, :be => :べ, :bo => :ぼ,
:ca => :か, :ci => :き, :cu => :く, :ce => :け, :co => :こ,
:da => :だ, :di => :どぃ, :du => :どぅ, :de => :で, :do => :ど,
:fa => :ふぁ, :fi => :ふぃ, :fu => :ふ, :fe => :ふぇ, :fo => :ふぉ,
:ga => :が, :gi => :ぎ, :gu => :ぐ, :ge => :げ, :go => :ご,
:ha => :は, :hi => :ひ, :hu => :ふ, :he => :へ, :ho => :ほ,
:ja => :じぁ, :ji => :じ, :ju => :じぅ, :je => :じぇ, :jo => :じぉ,
:ka => :か, :ki => :き, :ku => :く, :ke => :け, :ko => :こ,
:la => :ら, :li => :り, :lu => :る, :le => :れ, :lo => :ろ,
:ma => :ま, :mi => :み, :mu => :む, :me => :め, :mo => :も,
:na => :な, :ni => :に, :nu => :ぬ, :ne => :ね, :no => :の,
:pa => :ぱ, :pi => :ぴ, :pu => :ぷ, :pe => :ぺ, :po => :ぽ,
:qa => :か, :qi => :き, :qu => :く, :qe => :け, :qo => :こ,
:ra => :ら, :ri => :り, :ru => :る, :re => :れ, :ro => :ろ,
:sa => :さ, :si => :すぃ, :su => :す, :se => :せ, :so => :そ,
:ta => :た, :ti => :てぃ, :tu => :とぅ, :te => :て, :to => :と,
:va => :ヴぁ, :vi => :ヴぃ, :vu => :ヴぅ, :ve => :ヴぇ, :vo => :ヴぉ,
:wa => :わ, :wi => :ゐ, :wu => :ゐぅ, :we => :ゑ, :wo => :を,
:xa => :くさ, :xi => :くすぃ, :xu => :くす, :xe => :くせ, :xo => :くそ,
:ya => :いぁ, :yi => :いぃ, :yu => :いぅ, :ye => :いぇ, :yo => :いぉ,
:za => :ざ, :zi => :ずぃ, :zu => :ず, :ze => :ぜ, :zo => :ぞ,
}
R片 = {
:が => :ガ,:ぎ => :ギ,:ぐ => :グ,:げ => :ゲ,:ご => :ゴ,
:ざ => :ザ,:じ => :ジ,:ず => :ズ,:ぜ => :ゼ,:ぞ => :ゾ,
:だ => :ダ,:ぢ => :ヂ,:づ => :ヅ,:で => :デ,:ど => :ド,
:ば => :バ,:び => :ビ,:ぶ => :ブ,:べ => :ベ,:ぼ => :ボ,
:ぱ => :パ,:ぴ => :ピ,:ぷ => :プ,:ぺ => :ペ,:ぽ => :ポ,
:あ => :ア,:い => :イ,:う => :ウ,:え => :エ,:お => :オ,
:か => :カ,:き => :キ,:く => :ク,:け => :ケ,:こ => :コ,
:さ => :サ,:し => :シ,:す => :ス,:せ => :セ,:そ => :ソ,
:た => :タ,:ち => :チ,:つ => :ツ,:て => :テ,:と => :ト,
:な => :ナ,:に => :ニ,:ぬ => :ヌ,:ね => :ネ,:の => :ノ,
:は => :ハ,:ひ => :ヒ,:ふ => :フ,:へ => :ヘ,:ほ => :ホ,
:ま => :マ,:み => :ミ,:む => :ム,:め => :メ,:も => :モ,
:ら => :ラ,:り => :リ,:る => :ル,:れ => :レ,:ろ => :ロ,
:わ => :ワ,:を => :ヲ,:ゑ => :ヱ,:ゐ => :ヰ,:ヴ => :ヴ,
:ぁ => :ァ,:ぃ => :ィ,:ぅ => :ゥ,:ぇ => :ェ,:ぉ => :ォ,
:ゃ => :ャ,:ゅ => :ュ,:ょ => :ョ,
:や => :ヤ,:ゆ => :ユ,:よ => :ヨ,
:ん => :ン,:っ => :ッ,:ゎ => :ヮ,
}
def 鍵文字を登録
R鍵文字.each_pair do |甲,乙|
Unparser::Constants.const_set 乙[0], 乙[1].to_s
Unparser::Emitter::REGISTRY[乙[1].to_sym] = Unparser::Emitter::REGISTRY[甲.to_sym]
end
Unparser::Emitter::Repetition::MAP[:while] = R鍵文字[:while][1].to_s
Unparser::Emitter::Repetition::MAP[:until] = R鍵文字[:until][1].to_s
Unparser::Emitter::FlowModifier::MAP[:return] = R鍵文字[:return][1].to_s
Unparser::Emitter::FlowModifier::MAP[:next] = R鍵文字[:next][1].to_s
Unparser::Emitter::FlowModifier::MAP[:break] = R鍵文字[:break][1].to_s
Unparser::Emitter::FlowModifier::MAP[:or] = R鍵文字[:or][1].to_s
Unparser::Emitter::FlowModifier::MAP[:and] = R鍵文字[:and][1].to_s
Unparser::Emitter::FlowModifier::MAP[:BEGIN] = R鍵文字[:BEGIN][1].to_s
Unparser::Emitter::FlowModifier::MAP[:END] = R鍵文字[:END][1].to_s
end
class Float
def inspect
フロートの文字化(self)
end
end
class BigDecimal
def inspect
フロートの文字化(self.to_s('F'))
end
end
class Integer
def inspect
整数の文字化(self)
end
end
class Fixnum
def inspect
整数の文字化(self)
end
end
class Bignum
def inspect
整数の文字化(self)
end
end
def 整数の文字化(整数)
数字 = 整数.to_s
if 数字.size <= 7
return 数字.chars.map{|甲|R数字行列[甲]}.join
else
乙 = INT_TABLE.find{|甲|甲[0] < 数字.size}
整数の文字化(数字[0...-乙[0]]) + 乙[1] + 整数の文字化(数字[(-乙[0])..-1])
end
end
def フロートの文字化(フロート)
甲 = フロート.to_s.split(?.)
甲[0] = 整数の文字化(甲[0])
甲[1] = 甲[1].chars.map{|乙|R数字行列[乙]}.join
甲.join(?点)
end
def 文字を翻訳(文字)
平片 = :hira
文字.scan(/([^aeiou])?(\1)?([yj])?([aeiou])?/i).map do |子音甲,子音乙,子音丙,母音|
母音 = 母音.to_s
if 子音甲.nil? && 母音.empty?
nil
else
平片 = :kata if (子音甲||母音).downcase!=(子音甲||母音)
子音甲,子音乙,子音丙,母音 = [子音甲,子音乙,子音丙,母音].map{|x| x ? x.downcase : x }
if 母音.empty?
母音 = Rしヴぁう[子音甲.to_sym].to_s
end
# hu => ひゅ, qu => きゅ
if 母音=="u" && (子音甲=="h"||子音甲=="q")
子音丙 = "y"
end
# ja,ju,jo => じゃ、じゅ,じょ
if (母音=="a"||母音=="u"||母音=="o") && 子音甲 == "j"
子音丙 = "y"
end
# 拗音
if 子音丙
if [:a,:u,:o].include?(母音)
子音丙 = case 母音
when :a ; :ゃ
when :u ; :ゅ
when :o ; :ょ
end
母音 = :i
else
子音丙 = nil
end
end
# basic syllable
仮名 = R平[(子音甲.to_s+母音).to_sym].to_s
# 促音
if 子音乙
if %w[ま み む め も な に ぬ ね の].include?(子音乙)
仮名 = "ん" + 仮名
else
仮名 = "っ" + 仮名
end
end
# 拗音
if 子音丙
仮名 = 仮名 + 子音丙
end
# lowercase => hiragana, uppercase => katakana
if 平片==:kata
仮名 = 仮名.gsub(/./){|丁|R片[丁.to_sym]}.to_s
end
仮名
end
end.compact.join
end
def 文を翻訳(文)
文.scan(/(([a-z]+|[0-9]+|[^a-z0-9]+))/i).map do |文字,_|
if 文字.index(/[a-z]/i)
文字を翻訳(文字)
elsif 文字.index(/[0-9]/)
整数の文字化(文字)
else
文字
end
end.compact.join
end
def 翻訳(文章=nil)
if 文章.empty? || 文章.nil?
文章
else
if 甲 = R翻訳行列[文章.to_sym]
甲
elsif 甲 = R翻訳メモリー[文章]
甲
else
甲 = 文を翻訳(文章.to_s)
R翻訳メモリー[文章] = 甲
end
end
end
def ノード毎に(幹,&塊)
if 幹.is_a? Parser::AST::Node
子供 = 幹.children
yield 幹.type,子供
幹.children.each{|甲|ノード毎に(甲,&塊)}
if 甲 = R鍵文字[幹.type]
幹.instance_variable_set(:@type,甲[1]) if [:self,:true,:false,:nil].include?(幹.type)
end
end
end
def 幹を翻訳(幹)
ノード毎に(幹) do |類,子|
case 類
when :arg
子[0] = 翻訳(子[0]).to_sym
when :blockarg
子[0] = 翻訳(子[0]).to_sym
when :casgn
子[1] = ('C_'+翻訳(子[1]).to_s).to_sym
when :const
子[1] = 翻訳(子[1]).to_sym
when :def
子[0] = 翻訳(子[0]).to_sym
when :int
when :kwoptarg
子[0] = 翻訳(子[0]).to_sym
when :lvar
子[0] = 翻訳(子[0]).to_sym
when :lvasgn
子[0] = 翻訳(子[0]).to_sym
when :optarg
子[0] = 翻訳(子[0]).to_sym
when :restarg
子[0] = 翻訳(子[0]).to_sym
when :send
子[1] = 翻訳(子[1]).to_sym
when :str
子[0] = 翻訳(子[0]).to_s
when :sym
子[0] = 翻訳(子[0]).to_sym
end
end
end
def ノートを翻訳(ノート)
ノート.each do |子|
テキスト = 子.text
if テキスト[0] == '#'
子.instance_variable_set(:@text,"#" + 翻訳(テキスト[1..-1]))
else
子.instance_variable_set(:@text,"=開始\n" + 翻訳(テキスト[6..-6]) + "\n=此処迄\n")
end
end
end
########
# main #
########
# register keywords
鍵文字を登録
# read input, translate, and print result
コード = STDIN.read
コード.encode(Encoding::UTF_8)
コード = "#encoding:utf-8\n" + コード
幹, ノート = Parser::CurrentRuby.parse_with_comments(コード)
幹を翻訳(幹)
ノートを翻訳(ノート)
STDOUT.write Unparser.unparse(幹,ノート)
いくつかの変換テーブルなどを省略して、自分自身で実行します。
#えぬこどぃぬぐ:うとふ-捌
# えぬこどぃぬぐ:うとふ-捌
取り込む("ぱるせる/くっれぬと")
# すぺる はくく, どぬ'と とる とひす あと ほめ!!
クラス 配列
定義 凍結
自身
此処迄
此処迄
クラス ハッシュ表
定義 凍結
自身
此処迄
此処迄
クラス パルセル::アスト::ノデ
定義 凍結
自身
此処迄
此処迄
取り込む("うぬぱるせる")
クラス パルセル::ソウルケ::コッメヌト
定義 凍結
自身
此処迄
此処迄
定義 鍵文字を登録
ル鍵文字.えあくふ_ぱいる 実行 |甲, 乙|
ウヌパルセル::コヌスタヌトス.こぬすと_せと(乙[零], 乙[壹].と_す)
ウヌパルセル::エミッテル::レギストル[乙[壹].と_すむ] = ウヌパルセル::エミッテル::レギストル[甲.と_すむ]
此処迄
ウヌパルセル::エミッテル::レペティティオヌ::マプ[:ゐぅひれ] = ル鍵文字[:ゐぅひれ][壹].と_す
ウヌパルセル::エミッテル::レペティティオヌ::マプ[:うぬてぃる] = ル鍵文字[:うぬてぃる][壹].と_す
ウヌパルセル::エミッテル::フロヰゥモドィフィエル::マプ[:れとぅるぬ] = ル鍵文字[:れとぅるぬ][壹].と_す
ウヌパルセル::エミッテル::フロヰゥモドィフィエル::マプ[:ねくすと] = ル鍵文字[:ねくすと][壹].と_す
ウヌパルセル::エミッテル::フロヰゥモドィフィエル::マプ[:ぶれあく] = ル鍵文字[:ぶれあく][壹].と_す
ウヌパルセル::エミッテル::フロヰゥモドィフィエル::マプ[:おる] = ル鍵文字[:おる][壹].と_す
ウヌパルセル::エミッテル::フロヰゥモドィフィエル::マプ[:あぬど] = ル鍵文字[:あぬど][壹].と_す
ウヌパルセル::エミッテル::フロヰゥモドィフィエル::マプ[:ベギヌ] = ル鍵文字[:ベギヌ][壹].と_す
ウヌパルセル::エミッテル::フロヰゥモドィフィエル::マプ[:エヌド] = ル鍵文字[:エヌド][壹].と_す
此処迄
クラス 浮動小数点数
定義 検査
フロートの文字化(自身)
此処迄
此処迄
クラス ビグデキマル
定義 検査
フロートの文字化(自身.と_す("フ"))
此処迄
此処迄
クラス 整数
定義 検査
整数の文字化(自身)
此処迄
此処迄
クラス 固定長整数
定義 検査
整数の文字化(自身)
此処迄
此処迄
クラス 多倍長整数
定義 検査
整数の文字化(自身)
此処迄
此処迄
定義 整数の文字化(整数)
数字 = 整数.と_す
若し (数字.すぃぜ <= 漆)
戻る 数字.くはるす.まぷ 実行 |甲|
ル数字行列[甲]
此処迄.じぉいぬ
違えば
乙 = イヌト_タブレ.ふぃぬど 実行 |甲|
甲[零] < 数字.すぃぜ
此処迄
(整数の文字化(数字[零...(-乙[零])]) + 乙[壹]) + 整数の文字化(数字[(-乙[零])..壹])
此処迄
此処迄
定義 フロートの文字化(フロート)
甲 = フロート.と_す.すぷりと(".")
甲[零] = 整数の文字化(甲[零])
甲[壹] = 甲[壹].くはるす.まぷ 実行 |乙|
ル数字行列[乙]
此処迄.じぉいぬ
甲.じぉいぬ("点")
此処迄
定義 文字を翻訳(文字)
平片 = :ひら
文字.すかぬ(/([^あえいおう])?(\壹)?([いぅ])?([あえいおう])?/i).まぷ 実行 |子音甲, 子音乙, 子音丙, 母音|
母音 = 母音.と_す
若し (子音甲.にる? && 母音.えむぷと?)
無
違えば
若し ((子音甲 || 母音).どゐぅぬかせ != (子音甲 || 母音))
平片 = :かた
此処迄
子音甲, 子音乙, 子音丙, 母音 = [子音甲, 子音乙, 子音丙, 母音].まぷ 実行 |くす|
若し くす
くす.どゐぅぬかせ
違えば
くす
此処迄
此処迄
若し 母音.えむぷと?
母音 = ルしヴぁう[子音甲.と_すむ].と_す
此処迄
# ふ => ひゅ, く => きゅ
若し ((母音 == "う") && ((子音甲 == "ふ") || (子音甲 == "く")))
子音丙 = "いぅ"
此処迄
# じぁ,じぅ,じぉ => じゃ、じゅ,じょ
若し ((((母音 == "あ") || (母音 == "う")) || (母音 == "お")) && (子音甲 == "じぅ"))
子音丙 = "いぅ"
此処迄
# 拗音
若し 子音丙
若し [:あ, :う, :お].いぬくるで?(母音)
子音丙 = 条件分岐 母音
場合 :あ
:ゃ
場合 :う
:ゅ
場合 :お
:ょ
此処迄
母音 = :い
違えば
子音丙 = 無
此処迄
此処迄
# ばすぃく すっらぶれ
仮名 = ル平[(子音甲.と_す + 母音).と_すむ].と_す
# 促音
若し 子音乙
若し ["ま", "み", "む", "め", "も", "な", "に", "ぬ", "ね", "の"].いぬくるで?(子音乙)
仮名 = ("ん" + 仮名)
違えば
仮名 = ("っ" + 仮名)
此処迄
此処迄
# 拗音
若し 子音丙
仮名 = (仮名 + 子音丙)
此処迄
# ろゑるかせ => ひらがな, うっぺるかせ => かたかな
若し (平片 == :かた)
仮名 = 仮名.全文字列置換(/./) 実行 |丁|
ル片[丁.と_すむ]
此処迄.と_す
此処迄
仮名
此処迄
此処迄.こむぱくと.じぉいぬ
此処迄
定義 文を翻訳(文)
文.すかぬ(/(([あ-ず]+|[零-玖]+|[^あ-ず零-玖]+))/i).まぷ 実行 |文字, _|
若し 文字.いぬでくす(/[あ-ず]/i)
文字を翻訳(文字)
違えば
若し 文字.いぬでくす(/[零-玖]/)
整数の文字化(文字)
違えば
文字
此処迄
此処迄
此処迄.こむぱくと.じぉいぬ
此処迄
定義 翻訳(文章 = 無)
若し (文章.えむぷと? || 文章.にる?)
文章
違えば
若し (甲 = ル翻訳行列[文章.と_すむ])
甲
違えば
若し (甲 = ル翻訳メモリー[文章])
甲
違えば
甲 = 文を翻訳(文章.と_す)
ル翻訳メモリー[文章] = 甲
此処迄
此処迄
此処迄
此処迄
定義 ノード毎に(幹, &塊)
若し 幹.いす_あ?(パルセル::アスト::ノデ)
子供 = 幹.くひるどれぬ
ブロックを呼び出す(幹.とぺ, 子供)
幹.くひるどれぬ.えあくふ 実行 |甲|
ノード毎に(甲, &塊)
此処迄
若し (甲 = ル鍵文字[幹.とぺ])
若し [:せるふ, :とるえ, :ふぁるせ, :にる].いぬくるで?(幹.とぺ)
幹.いぬすたぬけ_ヴぁりあぶれ_せと(:@とぺ, 甲[壹])
此処迄
此処迄
此処迄
此処迄
定義 幹を翻訳(幹)
ノード毎に(幹) 実行 |類, 子|
条件分岐 類
場合 :あるぐ
子[零] = 翻訳(子[零]).と_すむ
場合 :ぶろくかるぐ
子[零] = 翻訳(子[零]).と_すむ
場合 :かすぐぬ
子[壹] = ("ク_" + 翻訳(子[壹]).と_す).と_すむ
場合 :こぬすと
子[壹] = 翻訳(子[壹]).と_すむ
場合 :でふ
子[零] = 翻訳(子[零]).と_すむ
場合 :いぬと
場合 :くをぷたるぐ
子[零] = 翻訳(子[零]).と_すむ
場合 :るヴぁる
子[零] = 翻訳(子[零]).と_すむ
場合 :るヴぁすぐぬ
子[零] = 翻訳(子[零]).と_すむ
場合 :おぷたるぐ
子[零] = 翻訳(子[零]).と_すむ
場合 :れすたるぐ
子[零] = 翻訳(子[零]).と_すむ
場合 :せぬど
子[壹] = 翻訳(子[壹]).と_すむ
場合 :すとる
子[零] = 翻訳(子[零]).と_す
場合 :すむ
子[零] = 翻訳(子[零]).と_すむ
此処迄
此処迄
此処迄
定義 ノートを翻訳(ノート)
ノート.えあくふ 実行 |子|
テキスト = 子.てくすと
若し (テキスト[零] == "#")
子.いぬすたぬけ_ヴぁりあぶれ_せと(:@てくすと, "#" + 翻訳(テキスト[壹..壹]))
違えば
子.いぬすたぬけ_ヴぁりあぶれ_せと(:@てくすと, ("=開始\n" + 翻訳(テキスト[陸..陸])) + "\n=此処迄\n")
此処迄
此処迄
此処迄
########
# まいぬ #
########
# れぎすてる けいぅをるどす
鍵文字を登録
# れあど いぬぷと, とらぬすらて, あぬど ぷりぬと れすると
コード = ストドィヌ.れあど
コード.えぬこで(エヌコドィヌグ::ウトフ_捌)
コード = ("#えぬこどぃぬぐ:うとふ-捌\n" + コード)
幹, ノート = パルセル::クッレヌトルブ.ぱるせ_ゐとふ_こっめぬとす(コード)
幹を翻訳(幹)
ノートを翻訳(ノート)
ストドウト.ゐぅりて(ウヌパルセル.うぬぱるせ(幹, ノート))
または
# Output "I love Ruby"
say = "I love Ruby"
puts say
# Output "I *LOVE* RUBY"
say['love'] = "*love*"
puts say.upcase
# Output "I *love* Ruby"
# five times
5.times { puts say }
になる
#えぬこどぃぬぐ:うとふ-捌
# オウトプト "イ ろヴぇ ルブ"
さいぅ = "イ ろヴぇ ルブ"
言う(さいぅ)
# オウトプト "イ *ロヴェ* ルブ"
さいぅ["ろヴぇ"] = "*ろヴぇ*"
言う(さいぅ.うぷかせ)
# オウトプト "イ *ろヴぇ* ルブ"
# ふぃヴぇ てぃめす
伍.てぃめす 実行
言う(さいぅ)
此処迄
