「◆桁あふれなし四則演算セット」の編集履歴（バックアップ）一覧はこちら
◆桁あふれなし四則演算セット - (2010/08/02 (月) 12:51:06) の１つ前との変更点
追加された行は緑色になります。
削除された行は赤色になります。
**情報
・作者名：じゅゐ
・著作権：放棄（でも参考にしたりするときはコメントが欲しいです）
・一言 ：桁あふれなし、少数OK、負の数OKというふうに開発していったせいでかなり長いプログラムになってしまいました。でもただ単に長ったらしいだけではありません。長さだけの機能はあります！ （ただ良いプログラムは簡潔で誰が見ても分かりやすいものだとどこかで読んだような気がします。作者自身、時々この動作はいったい何をしているんだというのがあるぐらいですが、よろしくお願いします。あれ、一言じゃなくなってる。）
**解説
四則演算を桁数制限なし、少数OK、マイナスOKで計算することができます。
依存する形で少数をきちんとした書式に直す少数処理、 （例：0042.19500→42.195）
なでしこでは大小を判断できない様な大きな数にも対応する大小判定
が一緒に梱包されています
・割り算
”割られる数”と、”割る数”を、”小数点以下～桁”まで
与えられた２数を設定した小数点以下の桁までの商を桁数無制限に演算して返す
※内部依存――引き算、掛け算、小数処理
・掛け算
”掛けられる数”と、”掛ける数”を
与えられた２数の積を桁数無制限に演算して返す
※内部依存――足し算、小数処理、大小判定
・引き算
”引かれる数”と、”引く数”を
与えられた２数の差を桁数無制限に演算して返す
※内部依存――足し算、小数処理
・足し算
”足される数”と、”足す数”を
与えられた２数の和を桁数無制限に演算して返す
※内部依存――引き算、小数処理
・小数処理
”処理するもの”を
与えられた数を通常の数字表記に直して返す
・大小判定
”一つ目の数”と、”二つ目の数”を
与えられた２数を、一つ目の数が大きかったら1、二つ目だったら2、同じだったら0を返す
**サンプルプログラム
123456789012345678901234567890と123456789012345678901234567890を足し算
それを表示
＞246913578024691357802469135780と表示される
111111111と111111111を掛け算
それを表示
＞12345678987654321と表示される
-12345678901234567.8901234567890と12345678901234567.8901234567890を引き算
それを表示
＞-24691357802469135.7802469135780と表示される
22と7を30まで割り算
それを表示
＞3.142857142857142857142857142857と表示される
**本体
＊割り算（数１と、数２を、割り算制限まで）
割一とは文字列＝空
総当たりとは文字列＝空
あまりとは文字列＝空
割結とは文字列＝空
桁とは文字列＝空
割一￥１＝数１から１文字左部分。
割一￥２＝数２から１文字左部分。
もし、割一￥１＝「-」ならば
数１の１から１文字削除
もし、割一￥２＝「-」ならば
数２の１から１文字削除
割一￥０￥０＝「」
違えば
割一￥０￥０＝「-」
違えば
もし、割一￥２＝「-」ならば
数２の１から１文字削除
割一￥０￥０＝「-」
違えば
割一￥０￥０＝「」
（数１で「.」の出現回数＝0）ならば、数１＝「｛数１｝.」
（数２で「.」の出現回数＝0）ならば、数２＝「｛数２｝.」
割一￥１＝数１で「.」が何文字目
割一￥２＝数２で「.」が何文字目
数１＝数１の「.」を「」に置換
数２＝数２の「.」を「」に置換
割一￥１＝数１の文字数-割一￥１
割一￥２＝数２の文字数-割一￥２
もし、割一￥１＝割一￥２ならば
割一￥０￥１＝数１の文字数
違えば
もし、割一￥１＞割一￥２ならば
割一￥０￥１＝数１の文字数-割一￥１+割一￥２
割一￥３＝「0」を割一￥１-割一￥２だけリフレイン。
違えば
割一￥０￥１＝数１の文字数-割一￥１+割一￥２
割一￥３＝「0」を割一￥２-割一￥１だけリフレイン。
数１＝「｛数１｝｛割一￥３｝」
もし、数２の文字数＞13ならば
総当たり＝1
違えば
総当たり＝0
あまり＝「」
割結＝「」
桁＝数１の文字数
割り算制限+割一￥０￥１回
もし、数１＝「」ならば
割一￥１＝「0」
違えば
割一￥１＝数１から１文字左部分。
数１の１から１文字削除。
割一￥１＝「｛あまり｝｛割一￥１｝」
もし、総当たり＝1ならば
割一￥２＝9
9回
割一￥３＝数２と割一￥２を掛け算
もし、（割一￥3が割一￥1以下）ならば
抜ける
違えば
割一￥２＝割一￥２-1
違えば
割一￥２＝INT（割一￥１/数２）
割一￥３＝割一￥２と数２を掛け算
あまり＝「｛割一￥１と割一￥３を引き算｝」
割結＝「｛割結｝｛割一￥２｝」
あまりの文字数≦15ならば
もし、あまり＝0ならば
もし、数１＝「」ならば
もし、回数≧割一￥０￥１ならば
抜ける
割一￥２＝割結の文字数
割一￥１＝割結から割一￥０￥１文字左部分。
割結の１から割一￥０￥１文字削除。
割結＝「｛割一￥１｝.｛割結｝」
割結＝割結を小数処理
割結＝「｛割一￥０￥０｝｛割結｝」
割一￥３＝あまりから割一￥０￥１文字左部分。
あまりの１から割一￥０￥１文字削除。
あまり＝「｛割一￥３｝.｛あまり｝」
あまり＝あまりを小数処理
割結で戻る
＊掛け算（数１と、数２を）
掛一とは文字列＝空
元数１とは文字列＝空
掛結掛一とは文字列＝空
桁とは文字列＝空
桁回数とは文字列＝空
計算とは文字列＝空
繰上とは文字列＝空
掛結とは文字列＝空
掛一￥１＝数１の文字数
掛一￥２＝数２の文字数
掛一￥３＝掛一￥１＋掛一￥２
もし、（掛一￥３≦15）ならば
数１*数２で戻る
違えば
掛一￥７＝数１から１文字左部分。
掛一￥８＝数２から１文字左部分。
（掛一￥７＝「-」）ならば、掛一￥９＝1。数１の１から１文字削除
（掛一￥８＝「-」）ならば、掛一￥９＝掛一￥９+1。数２の１から１文字削除
掛一￥０，２＝掛一￥１+掛一￥２-2
掛一￥９＝掛一￥９と２の余り
掛一￥０、０＝「」
（掛一￥９＝1）ならば、掛一￥０、０＝「-」
掛一￥３＝数１で「.」が何文字目
掛一￥４＝数２で「.」が何文字目
（掛一￥３＝0）ならば、数１＝「｛数１｝.」。掛一￥３＝掛一￥１。
（掛一￥４＝0）ならば、数２＝「｛数２｝.」。掛一￥４＝掛一￥２。
掛一￥５＝掛一￥１-掛一￥３
掛一￥６＝掛一￥２-掛一￥４
掛一￥０、１＝掛一￥５+掛一￥６
数１の「.」を「」に置換
数１＝それ
数２の「.」を「」に置換
数２＝それ
元数１＝数１
掛結掛一＝「」
桁￥１＝数１の文字数
桁￥１＝（（桁￥１-１）/14）を切り下げ+1
桁￥２＝数２の文字数
桁回数＝1
桁￥２回
計算￥２＝数２から1文字右部分
数２から1文字右端削除
繰上＝0
数１＝元数１
桁￥１回
計算￥１＝数１から14文字右部分
掛一￥１＝計算￥１の文字数
数１から14文字右端削除
計算￥０＝計算￥１*計算￥２+繰上
もし、計算￥０≧100000000000000ならば
繰上＝計算￥０から1文字左部分
計算￥０＝計算￥０から14文字右部分
違えば
繰上＝0
掛一￥４＝計算￥０の文字数
掛結掛一￥桁回数＝「｛計算￥０｝｛掛結掛一￥桁回数｝」
もし、掛一￥１＞掛一￥４ならば
掛結掛一￥桁回数＝「｛0を掛一￥１-掛一￥４だけリフレイン｝｛掛結掛一￥桁回数｝」
掛結掛一￥桁回数＝「｛繰上｝｛掛結掛一￥桁回数｝」
桁回数＝桁回数+1
掛結＝0
桁回数＝1
桁￥２回
掛一￥１＝「｛掛結掛一￥桁回数｝｛0を桁回数-1だけリフレイン｝」
掛結＝掛結と掛一￥１を足し算
桁回数＝桁回数+1
もし、掛一￥０、１＝0ならば
掛結＝「｛掛一￥０，０｝｛掛結｝」
違えば
掛一￥３＝掛一￥０、１
掛一￥１＝掛結の文字数
もし、掛一￥１＜掛一￥０，２ならば
掛結＝「｛0を掛一￥０，２だけリフレイン｝｛掛結｝」
掛一￥１＝掛結の文字数
掛一￥２＝掛結から掛一￥１-掛一￥３文字左部分
掛結の１から掛一￥１-掛一￥３文字削除
掛結＝「｛掛一￥０，０｝｛掛一￥２｝.｛掛結｝」
掛結＝掛結を小数処理
掛結で戻る
＊引き算（数１と、数２を）
引一とは文字列＝空
桁とは文字列＝空
符号記号とは文字列＝空
繰下とは文字列＝空
結果とは文字列＝空
M1とは文字列＝空
M2とは文字列＝空
結果引一とは文字列＝空
引一￥１＝数１の文字数
引一￥２＝数２の文字数
引一￥３＝引一￥１＋引一￥２
もし、（引一￥３＜15）ならば
数１-数２で戻る
違えば
引一￥５＝数１で「.」が何文字目-1
引一￥６＝数２で「.」が何文字目-1
（引一￥５＝-1）ならば、数１＝「｛数１｝.」。引一￥５＝引一￥１-1。
（引一￥６＝-1）ならば、数２＝「｛数２｝.」。引一￥６＝引一￥２-1。
もし、引一￥５＜引一￥６ならば
引一￥７＝引一￥６
違えば
引一￥７＝引一￥５
引一￥３＝引一￥１-引一￥５
引一￥４＝引一￥２-引一￥６
もし、引一￥３＜引一４ならば
引一￥８＝引一￥２－引一￥６
違えば
引一￥８＝引一￥１－引一￥５
もし、引一￥７+引一￥８＜15ならば
数１-数２で戻る
違えば
引一￥９＝数１から１文字左部分
引一￥１０＝数２から１文字左部分
もし、引一￥９＝「-」ならば
数１から１文字右端削除
数２から１文字右端削除
もし、引一￥１０＝「-」ならば
数１の１から１文字削除
数２の１から１文字削除
もし、数２≧数１ならば
引一￥１１＝数２と数１を引き算
違えば
引一￥１１＝数１と数２を引き算
もし、引一￥１１＝「0」ならば
引一￥１１＝「0」
違えば
引一￥１１＝「-｛引一￥１１｝」
違えば
数１の１から１文字削除
引一￥１１＝数２と数１を足し算
引一￥１１＝「-｛引一￥１１｝」
引一￥１１で戻る
違えば
もし、引一￥１０＝「-」ならば
数１から１文字右端削除
数２から１文字右端削除
数２の１から１文字削除
引一￥１１＝数１と数２を足し算
引一￥１１で戻る
違えば
もし、引一￥８≠０ならば
もし、引一￥３＞引一￥４ならば
引一￥０＝引一￥３
引一￥５＝「0」を引一￥３-引一￥４だけリフレイン
数２＝「｛数２｝｛引一￥５｝」
もし、引一￥４＞引一￥３ならば
引一￥０＝引一￥４
引一￥５＝「0」を引一￥４-引一￥３だけリフレイン
数１＝「｛数１｝｛引一￥５｝」
もし、引一￥３＝引一￥４ならば
引一￥０＝引一￥３
違えば
引一￥０＝0
数１の「.」を「」に置換
数１＝それ
数２の「.」を「」に置換
数２＝それ
桁￥１＝数１の文字数
桁￥２＝数２の文字数
もし、桁￥１≧桁￥２ならば
桁＝桁￥１
違えば
桁＝桁￥２
桁＝INT（（桁-1）/15）+1
符号記号＝「」
数２と数１を大小判定
もし、それ＝１ならば
符号記号＝「-」
引一￥９＝数１
数１＝数２
数２＝引一￥９
繰下＝0
結果＝「」
桁回
M1＝数１から15文字右部分
数１から15文字右端削除
M2＝数２から15文字右部分
数２から15文字右端削除
引一￥３＝M1の文字数
引一￥４＝M2の文字数
もし、引一￥３≧引一￥４ならば
引一￥２＝引一￥３
違えば
引一￥２＝引一￥４
結果引一＝M1-M2-繰下
もし、結果引一＜0ならば
結果引一＝結果引一+1000000000000000
繰下＝1
違えば
繰下＝0
引一￥１＝結果引一の文字数
もし、引一￥１＜引一￥２ならば
結果引一＝「｛0を引一￥２-引一￥１だけリフレイン｝｛結果引一｝」
結果＝「｛結果引一｝｛結果｝」
もし、引一￥０≠０ならば
引一￥１＝結果から（引一￥０）-1文字右部分
結果から（引一￥０）-1文字右端削除
結果＝「｛結果｝.｛引一￥１｝」
引一￥9＝結果から１文字左部分
もし、引一￥9＝「.」ならば
結果から1文字削除
結果＝「0｛結果｝」
結果＝結果を小数処理
結果＝「｛符号記号｝｛結果｝」
結果で戻る
＊足し算（数１と、数２を）
和一とは文字列＝空
桁とは文字列＝空
結果とは文字列＝空
繰上とは文字列＝空
P1とは文字列＝空
P2とは文字列＝空
結果和一とは文字列＝空
和一＝「」
和一￥１＝数１の文字数
和一￥２＝数２の文字数
和一￥３＝和一￥１＋和一￥２
もし、（和一￥３＜14）ならば
数１+数２で戻る
違えば
和一￥５＝数１で「.」が何文字目-1
和一￥６＝数２で「.」が何文字目-1
（和一￥５＝-1）ならば、数１＝「｛数１｝.」。和一￥５＝和一￥１-1。
（和一￥６＝-1）ならば、数２＝「｛数２｝.」。和一￥６＝和一￥２-1。
もし、和一￥５＜和一￥６ならば
和一￥７＝和一￥６
違えば
和一￥７＝和一￥５
もし、和一￥１－和一￥５＜和一￥２－和一￥６ならば
和一￥８＝和一￥２－和一￥６
違えば
和一￥８＝和一￥１－和一￥５
もし、和一￥７+和一￥８＜14ならば
数１+数２で戻る
違えば
和一￥９＝数１から１文字左部分
和一￥１０＝数２から１文字左部分
もし、和一￥９＝「-」ならば
数１から１文字右端削除
数２から１文字右端削除
もし、和一￥１０＝「-」ならば
数１の１から１文字削除
数２の１から１文字削除
和一￥１１＝数１と数２を足し算
和一￥１１＝「-｛和一￥１１｝」
違えば
数１の１から１文字削除
もし、数２≧数１ならば
和一￥１１＝数２と数１を引き算
違えば
和一￥１１＝数１と数２を引き算
和一￥１１＝「-｛和一￥１１｝」
和一￥１１で戻る
違えば
もし、和一￥１０＝「-」ならば
数１から１文字右端削除
数２から１文字右端削除
数２の１から１文字削除
もし、数２＞数１ならば
和一￥１１＝数２と数１を引き算
和一￥１１＝「-｛和一￥１１｝」
違えば
和一￥１１＝数１と数２を引き算
和一￥１１で戻る
違えば
もし、和一￥８≠０ならば
和一￥３＝和一￥１-和一￥５
和一￥４＝和一￥２-和一￥６
もし、和一￥３＞和一￥４ならば
和一￥０＝和一￥３
和一￥５＝「0」を和一￥３-和一￥４だけリフレイン
数２＝「｛数２｝｛和一￥５｝」
もし、和一￥４＞和一￥３ならば
和一￥０＝和一￥４
和一￥５＝「0」を和一￥４-和一￥３だけリフレイン
数１＝「｛数１｝｛和一￥５｝」
もし、和一￥３＝和一￥４ならば
和一￥０＝和一￥３
違えば
和一￥０＝0
数１の「.」を「」に置換
数１＝それ
数２の「.」を「」に置換
数２＝それ
桁￥１＝数１の文字数
桁￥２＝数２の文字数
もし、桁￥１≧桁￥２ならば
桁＝桁￥１
違えば
桁＝桁￥２
桁＝INT（（桁-1）/14）+1
繰上＝0
結果＝「」
桁回
P1＝数１から14文字右部分
数１から14文字右端削除
P2＝数２から14文字右部分
数２から14文字右端削除
和一￥３＝P1の文字数
和一￥４＝P2の文字数
もし、和一￥３≧和一￥４ならば
和一￥２＝和一￥３
違えば
和一￥２＝和一￥４
結果和一＝P1+P2+繰上
もし、結果和一≧100000000000000ならば
繰上＝1
結果和一＝結果和一-100000000000000
違えば
繰上＝0
和一￥１＝結果和一の文字数
もし、和一￥１＜和一￥２ならば
結果和一＝「｛0を和一￥２-和一￥１だけリフレイン｝｛結果和一｝」
結果＝「｛結果和一｝｛結果｝」
（繰上＝1）ならば、結果＝「1｛結果｝」。
もし、和一￥０≠０ならば
和一￥１＝結果から（和一￥０）-1文字右部分
結果から（和一￥０）-1文字右端削除
結果＝「｛結果｝.｛和一￥１｝」
結果を小数処理
それで戻る
＊小数処理（元を）
桁とは文字列＝空
一時とは文字列＝空
桁＝元の文字数
一時￥22＝0
桁回
一時￥21＝元から１文字左部分
もし、一時￥21＝「0」ならば
元の１から1文字削除
違えば
一時￥22＝1
もし、一時￥21＝「.」ならば
元＝「0｛元｝」
一時￥22＝1
もし、一時￥22＝1ならば
抜ける
一時￥22＝0
元で「.」の出現回数
もし、それ≠０ならば
桁回
一時￥21＝元から１文字右部分
もし、一時￥21＝「0」ならば
元から1文字右端削除
違えば
一時￥22＝1
もし、一時￥21＝「.」ならば
元から1文字右端削除
一時￥22＝1
もし、一時￥22＝1ならば
抜ける
もし、元＝「」ならば
元＝「0」
元で戻る
＊大小判定（一番と、二番を）
一時とは文字列＝空
一時とは文字列＝空
一時￥１＝一番の文字数
一時￥２＝二番の文字数
もし、（一時￥１＜16） AND （一時￥２＜16）ならば
もし、一番＝二番ならば
0で戻る
もし、一番＞二番ならば
1で戻る
もし、一番＜二番ならば
2で戻る
一時￥１＝「｛一番｝」
一時￥２＝「｛二番｝」
もし、一時￥１＝一時￥２ならば
0で戻る
一時￥１＝一番から1文字左部分
一時￥２＝二番から1文字左部分
もし、一時￥１＝「-」ならば
もし、一時￥２＝「-」ならば
一時￥０＝「-」
一番の1から1文字削除
二番の1から1文字削除
違えば
2で戻る
違えば
もし、一時￥２＝「-」ならば
1で戻る
違えば
一時￥０＝「」
一時￥１＝一番で「.」の出現回数。
もし、一時￥１＝0ならば
一番＝「｛一番｝.」
一時￥２＝二番で「.」の出現回数。
もし、一時￥２＝0ならば
二番＝「｛二番｝.」
一番＝「:｛一番｝」
二番＝「:｛二番｝」
一時￥３＝一番の「:」から「.」まで範囲切り取る。
一時￥４＝二番の「:」から「.」まで範囲切り取る。
一時￥１＝一時￥３の文字数
一時￥２＝一時￥４の文字数
もし、一時￥１＞一時￥２ならば
もし、一時￥０＝「-」ならば
2で戻る
違えば
1で戻る
違えば
もし、一時￥２＞一時￥１ならば
もし、一時￥０＝「-」ならば
1で戻る
違えば
2で戻る
違えば
一時￥２回
一時￥１＝一時￥３から1文字左部分
一時￥２＝一時￥４から1文字左部分
もし、一時￥１＞一時￥２ならば
もし、一時￥０＝「-」ならば
2で戻る
違えば
1で戻る
もし、一時￥２＞一時￥１ならば
もし、一時￥０＝「-」ならば
1で戻る
違えば
2で戻る
一時￥３の1から1文字削除
一時￥４の1から1文字削除
一時￥１＝一番の文字数
一時￥２＝二番の文字数
もし、一時￥１＜一時￥２ならば
一時￥１＝一時￥２
一時￥１回
一時￥１＝一番から1文字左部分
一時￥２＝二番から1文字左部分
もし、一時￥１＞一時￥２ならば
もし、一時￥０＝「-」ならば
2で戻る
違えば
1で戻る
もし、一時￥２＞一時￥１ならば
もし、一時￥０＝「-」ならば
1で戻る
違えば
2で戻る
一番の1から1文字削除
二番の1から1文字削除
0で戻る
**情報
・作者名：じゅゐ
・著作権：放棄（でも参考にしたりするときはコメントが欲しいです）
**解説
四則演算を桁数制限なし、少数OK、マイナスOKで計算することができます。
依存する形で少数をきちんとした書式に直す少数処理、
なでしこでは大小を判断できない様な大きな数にも対応する大小判定
が一緒に梱包されています。
また足し算も引き算も掛け算も割り算も
必ず数値に「」や『』などで囲って文字列として引数に設定してください。
15桁以上になるとなでしこがエラーを出します。
以下、各関数の引数設定と説明と一緒にないとエラーが出るような依存関数などの説明
・割り算
”割られる数”と、”割る数”を、”小数点以下～桁”まで
与えられた２数を設定した小数点以下の桁までの商を桁数無制限に演算して返す
※内部依存――引き算、掛け算、小数処理
・掛け算
”掛けられる数”と、”掛ける数”を
与えられた２数の積を桁数無制限に演算して返す
※内部依存――足し算、小数処理、大小判定
・引き算
”引かれる数”と、”引く数”を
与えられた２数の差を桁数無制限に演算して返す
※内部依存――足し算、小数処理
・足し算
”足される数”と、”足す数”を
与えられた２数の和を桁数無制限に演算して返す
※内部依存――引き算、小数処理
・小数処理
”処理するもの”を
与えられた数を通常の数字表記に直して返す
（例：0042.19500→42.195）
・大小判定
”一つ目の数”と、”二つ目の数”を
与えられた２数を、一つ目の数が大きかったら1、二つ目だったら2、同じだったら0を返す
**サンプルプログラム
「123456789012345678901234567890」と「123456789012345678901234567890」を足し算を表示
// 246913578024691357802469135780と表示される
「111111111」と「111111111」を掛け算を表示
// 12345678987654321と表示される
「-12345678901234567.8901234567890」と「12345678901234567.8901234567890」を引き算を表示
// -24691357802469135.7802469135780と表示される
22と7を30まで割り算を表示
// 3.142857142857142857142857142857と表示される
**本体
＊割り算（数１と、数２を、割り算制限まで）
割一とは文字列＝空
総当たりとは文字列＝空
あまりとは文字列＝空
割結とは文字列＝空
桁とは文字列＝空
割一￥１＝数１から１文字左部分。
割一￥２＝数２から１文字左部分。
もし、割一￥１＝「-」ならば
数１の１から１文字削除
もし、割一￥２＝「-」ならば
数２の１から１文字削除
割一￥０￥０＝「」
違えば
割一￥０￥０＝「-」
違えば
もし、割一￥２＝「-」ならば
数２の１から１文字削除
割一￥０￥０＝「-」
違えば
割一￥０￥０＝「」
（数１で「.」の出現回数＝0）ならば、数１＝「｛数１｝.」
（数２で「.」の出現回数＝0）ならば、数２＝「｛数２｝.」
割一￥１＝数１で「.」が何文字目
割一￥２＝数２で「.」が何文字目
数１＝数１の「.」を「」に置換
数２＝数２の「.」を「」に置換
割一￥１＝数１の文字数-割一￥１
割一￥２＝数２の文字数-割一￥２
もし、割一￥１＝割一￥２ならば
割一￥０￥１＝数１の文字数
違えば
もし、割一￥１＞割一￥２ならば
割一￥０￥１＝数１の文字数-割一￥１+割一￥２
割一￥３＝「0」を割一￥１-割一￥２だけリフレイン。
違えば
割一￥０￥１＝数１の文字数-割一￥１+割一￥２
割一￥３＝「0」を割一￥２-割一￥１だけリフレイン。
数１＝「｛数１｝｛割一￥３｝」
もし、数２の文字数＞13ならば
総当たり＝1
違えば
総当たり＝0
あまり＝「」
割結＝「」
桁＝数１の文字数
割り算制限+割一￥０￥１回
もし、数１＝「」ならば
割一￥１＝「0」
違えば
割一￥１＝数１から１文字左部分。
数１の１から１文字削除。
割一￥１＝「｛あまり｝｛割一￥１｝」
もし、総当たり＝1ならば
割一￥２＝9
9回
割一￥３＝数２と割一￥２を掛け算
もし、（割一￥3が割一￥1以下）ならば
抜ける
違えば
割一￥２＝割一￥２-1
違えば
割一￥２＝INT（割一￥１/数２）
割一￥３＝割一￥２と数２を掛け算
あまり＝「｛割一￥１と割一￥３を引き算｝」
割結＝「｛割結｝｛割一￥２｝」
あまりの文字数≦15ならば
もし、あまり＝0ならば
もし、数１＝「」ならば
もし、回数≧割一￥０￥１ならば
抜ける
割一￥２＝割結の文字数
割一￥１＝割結から割一￥０￥１文字左部分。
割結の１から割一￥０￥１文字削除。
割結＝「｛割一￥１｝.｛割結｝」
割結＝割結を小数処理
割結＝「｛割一￥０￥０｝｛割結｝」
割一￥３＝あまりから割一￥０￥１文字左部分。
あまりの１から割一￥０￥１文字削除。
あまり＝「｛割一￥３｝.｛あまり｝」
あまり＝あまりを小数処理
割結で戻る
＊掛け算（数１と、数２を）
掛一とは文字列＝空
元数１とは文字列＝空
掛結掛一とは文字列＝空
桁とは文字列＝空
桁回数とは文字列＝空
計算とは文字列＝空
繰上とは文字列＝空
掛結とは文字列＝空
掛一￥１＝数１の文字数
掛一￥２＝数２の文字数
掛一￥３＝掛一￥１＋掛一￥２
もし、（掛一￥３≦15）ならば
数１*数２で戻る
違えば
掛一￥７＝数１から１文字左部分。
掛一￥８＝数２から１文字左部分。
（掛一￥７＝「-」）ならば、掛一￥９＝1。数１の１から１文字削除
（掛一￥８＝「-」）ならば、掛一￥９＝掛一￥９+1。数２の１から１文字削除
掛一￥０，２＝掛一￥１+掛一￥２-2
掛一￥９＝掛一￥９と２の余り
掛一￥０、０＝「」
（掛一￥９＝1）ならば、掛一￥０、０＝「-」
掛一￥３＝数１で「.」が何文字目
掛一￥４＝数２で「.」が何文字目
（掛一￥３＝0）ならば、数１＝「｛数１｝.」。掛一￥３＝掛一￥１。
（掛一￥４＝0）ならば、数２＝「｛数２｝.」。掛一￥４＝掛一￥２。
掛一￥５＝掛一￥１-掛一￥３
掛一￥６＝掛一￥２-掛一￥４
掛一￥０、１＝掛一￥５+掛一￥６
数１の「.」を「」に置換
数１＝それ
数２の「.」を「」に置換
数２＝それ
元数１＝数１
掛結掛一＝「」
桁￥１＝数１の文字数
桁￥１＝（（桁￥１-１）/14）を切り下げ+1
桁￥２＝数２の文字数
桁回数＝1
桁￥２回
計算￥２＝数２から1文字右部分
数２から1文字右端削除
繰上＝0
数１＝元数１
桁￥１回
計算￥１＝数１から14文字右部分
掛一￥１＝計算￥１の文字数
数１から14文字右端削除
計算￥０＝計算￥１*計算￥２+繰上
もし、計算￥０≧100000000000000ならば
繰上＝計算￥０から1文字左部分
計算￥０＝計算￥０から14文字右部分
違えば
繰上＝0
掛一￥４＝計算￥０の文字数
掛結掛一￥桁回数＝「｛計算￥０｝｛掛結掛一￥桁回数｝」
もし、掛一￥１＞掛一￥４ならば
掛結掛一￥桁回数＝「｛0を掛一￥１-掛一￥４だけリフレイン｝｛掛結掛一￥桁回数｝」
掛結掛一￥桁回数＝「｛繰上｝｛掛結掛一￥桁回数｝」
桁回数＝桁回数+1
掛結＝0
桁回数＝1
桁￥２回
掛一￥１＝「｛掛結掛一￥桁回数｝｛0を桁回数-1だけリフレイン｝」
掛結＝掛結と掛一￥１を足し算
桁回数＝桁回数+1
もし、掛一￥０、１＝0ならば
掛結＝「｛掛一￥０，０｝｛掛結｝」
違えば
掛一￥３＝掛一￥０、１
掛一￥１＝掛結の文字数
もし、掛一￥１＜掛一￥０，２ならば
掛結＝「｛0を掛一￥０，２だけリフレイン｝｛掛結｝」
掛一￥１＝掛結の文字数
掛一￥２＝掛結から掛一￥１-掛一￥３文字左部分
掛結の１から掛一￥１-掛一￥３文字削除
掛結＝「｛掛一￥０，０｝｛掛一￥２｝.｛掛結｝」
掛結＝掛結を小数処理
掛結で戻る
＊引き算（数１と、数２を）
引一とは文字列＝空
桁とは文字列＝空
符号記号とは文字列＝空
繰下とは文字列＝空
結果とは文字列＝空
M1とは文字列＝空
M2とは文字列＝空
結果引一とは文字列＝空
引一￥１＝数１の文字数
引一￥２＝数２の文字数
引一￥３＝引一￥１＋引一￥２
もし、（引一￥３＜15）ならば
数１-数２で戻る
違えば
引一￥５＝数１で「.」が何文字目-1
引一￥６＝数２で「.」が何文字目-1
（引一￥５＝-1）ならば、数１＝「｛数１｝.」。引一￥５＝引一￥１-1。
（引一￥６＝-1）ならば、数２＝「｛数２｝.」。引一￥６＝引一￥２-1。
もし、引一￥５＜引一￥６ならば
引一￥７＝引一￥６
違えば
引一￥７＝引一￥５
引一￥３＝引一￥１-引一￥５
引一￥４＝引一￥２-引一￥６
もし、引一￥３＜引一４ならば
引一￥８＝引一￥２－引一￥６
違えば
引一￥８＝引一￥１－引一￥５
もし、引一￥７+引一￥８＜15ならば
数１-数２で戻る
違えば
引一￥９＝数１から１文字左部分
引一￥１０＝数２から１文字左部分
もし、引一￥９＝「-」ならば
数１から１文字右端削除
数２から１文字右端削除
もし、引一￥１０＝「-」ならば
数１の１から１文字削除
数２の１から１文字削除
もし、数２≧数１ならば
引一￥１１＝数２と数１を引き算
違えば
引一￥１１＝数１と数２を引き算
もし、引一￥１１＝「0」ならば
引一￥１１＝「0」
違えば
引一￥１１＝「-｛引一￥１１｝」
違えば
数１の１から１文字削除
引一￥１１＝数２と数１を足し算
引一￥１１＝「-｛引一￥１１｝」
引一￥１１で戻る
違えば
もし、引一￥１０＝「-」ならば
数１から１文字右端削除
数２から１文字右端削除
数２の１から１文字削除
引一￥１１＝数１と数２を足し算
引一￥１１で戻る
違えば
もし、引一￥８≠０ならば
もし、引一￥３＞引一￥４ならば
引一￥０＝引一￥３
引一￥５＝「0」を引一￥３-引一￥４だけリフレイン
数２＝「｛数２｝｛引一￥５｝」
もし、引一￥４＞引一￥３ならば
引一￥０＝引一￥４
引一￥５＝「0」を引一￥４-引一￥３だけリフレイン
数１＝「｛数１｝｛引一￥５｝」
もし、引一￥３＝引一￥４ならば
引一￥０＝引一￥３
違えば
引一￥０＝0
数１の「.」を「」に置換
数１＝それ
数２の「.」を「」に置換
数２＝それ
桁￥１＝数１の文字数
桁￥２＝数２の文字数
もし、桁￥１≧桁￥２ならば
桁＝桁￥１
違えば
桁＝桁￥２
桁＝INT（（桁-1）/15）+1
符号記号＝「」
数２と数１を大小判定
もし、それ＝１ならば
符号記号＝「-」
引一￥９＝数１
数１＝数２
数２＝引一￥９
繰下＝0
結果＝「」
桁回
M1＝数１から15文字右部分
数１から15文字右端削除
M2＝数２から15文字右部分
数２から15文字右端削除
引一￥３＝M1の文字数
引一￥４＝M2の文字数
もし、引一￥３≧引一￥４ならば
引一￥２＝引一￥３
違えば
引一￥２＝引一￥４
結果引一＝M1-M2-繰下
もし、結果引一＜0ならば
結果引一＝結果引一+1000000000000000
繰下＝1
違えば
繰下＝0
引一￥１＝結果引一の文字数
もし、引一￥１＜引一￥２ならば
結果引一＝「｛0を引一￥２-引一￥１だけリフレイン｝｛結果引一｝」
結果＝「｛結果引一｝｛結果｝」
もし、引一￥０≠０ならば
引一￥１＝結果から（引一￥０）-1文字右部分
結果から（引一￥０）-1文字右端削除
結果＝「｛結果｝.｛引一￥１｝」
引一￥9＝結果から１文字左部分
もし、引一￥9＝「.」ならば
結果から1文字削除
結果＝「0｛結果｝」
結果＝結果を小数処理
結果＝「｛符号記号｝｛結果｝」
結果で戻る
＊足し算（数１と、数２を）
和一とは文字列＝空
桁とは文字列＝空
結果とは文字列＝空
繰上とは文字列＝空
P1とは文字列＝空
P2とは文字列＝空
結果和一とは文字列＝空
和一＝「」
和一￥１＝数１の文字数
和一￥２＝数２の文字数
和一￥３＝和一￥１＋和一￥２
もし、（和一￥３＜14）ならば
数１+数２で戻る
違えば
和一￥５＝数１で「.」が何文字目-1
和一￥６＝数２で「.」が何文字目-1
（和一￥５＝-1）ならば、数１＝「｛数１｝.」。和一￥５＝和一￥１-1。
（和一￥６＝-1）ならば、数２＝「｛数２｝.」。和一￥６＝和一￥２-1。
もし、和一￥５＜和一￥６ならば
和一￥７＝和一￥６
違えば
和一￥７＝和一￥５
もし、和一￥１－和一￥５＜和一￥２－和一￥６ならば
和一￥８＝和一￥２－和一￥６
違えば
和一￥８＝和一￥１－和一￥５
もし、和一￥７+和一￥８＜14ならば
数１+数２で戻る
違えば
和一￥９＝数１から１文字左部分
和一￥１０＝数２から１文字左部分
もし、和一￥９＝「-」ならば
数１から１文字右端削除
数２から１文字右端削除
もし、和一￥１０＝「-」ならば
数１の１から１文字削除
数２の１から１文字削除
和一￥１１＝数１と数２を足し算
和一￥１１＝「-｛和一￥１１｝」
違えば
数１の１から１文字削除
もし、数２≧数１ならば
和一￥１１＝数２と数１を引き算
違えば
和一￥１１＝数１と数２を引き算
和一￥１１＝「-｛和一￥１１｝」
和一￥１１で戻る
違えば
もし、和一￥１０＝「-」ならば
数１から１文字右端削除
数２から１文字右端削除
数２の１から１文字削除
もし、数２＞数１ならば
和一￥１１＝数２と数１を引き算
和一￥１１＝「-｛和一￥１１｝」
違えば
和一￥１１＝数１と数２を引き算
和一￥１１で戻る
違えば
もし、和一￥８≠０ならば
和一￥３＝和一￥１-和一￥５
和一￥４＝和一￥２-和一￥６
もし、和一￥３＞和一￥４ならば
和一￥０＝和一￥３
和一￥５＝「0」を和一￥３-和一￥４だけリフレイン
数２＝「｛数２｝｛和一￥５｝」
もし、和一￥４＞和一￥３ならば
和一￥０＝和一￥４
和一￥５＝「0」を和一￥４-和一￥３だけリフレイン
数１＝「｛数１｝｛和一￥５｝」
もし、和一￥３＝和一￥４ならば
和一￥０＝和一￥３
違えば
和一￥０＝0
数１の「.」を「」に置換
数１＝それ
数２の「.」を「」に置換
数２＝それ
桁￥１＝数１の文字数
桁￥２＝数２の文字数
もし、桁￥１≧桁￥２ならば
桁＝桁￥１
違えば
桁＝桁￥２
桁＝INT（（桁-1）/14）+1
繰上＝0
結果＝「」
桁回
P1＝数１から14文字右部分
数１から14文字右端削除
P2＝数２から14文字右部分
数２から14文字右端削除
和一￥３＝P1の文字数
和一￥４＝P2の文字数
もし、和一￥３≧和一￥４ならば
和一￥２＝和一￥３
違えば
和一￥２＝和一￥４
結果和一＝P1+P2+繰上
もし、結果和一≧100000000000000ならば
繰上＝1
結果和一＝結果和一-100000000000000
違えば
繰上＝0
和一￥１＝結果和一の文字数
もし、和一￥１＜和一￥２ならば
結果和一＝「｛0を和一￥２-和一￥１だけリフレイン｝｛結果和一｝」
結果＝「｛結果和一｝｛結果｝」
（繰上＝1）ならば、結果＝「1｛結果｝」。
もし、和一￥０≠０ならば
和一￥１＝結果から（和一￥０）-1文字右部分
結果から（和一￥０）-1文字右端削除
結果＝「｛結果｝.｛和一￥１｝」
結果を小数処理
それで戻る
＊小数処理（元を）
桁とは文字列＝空
一時とは文字列＝空
桁＝元の文字数
一時￥22＝0
桁回
一時￥21＝元から１文字左部分
もし、一時￥21＝「0」ならば
元の１から1文字削除
違えば
一時￥22＝1
もし、一時￥21＝「.」ならば
元＝「0｛元｝」
一時￥22＝1
もし、一時￥22＝1ならば
抜ける
一時￥22＝0
元で「.」の出現回数
もし、それ≠０ならば
桁回
一時￥21＝元から１文字右部分
もし、一時￥21＝「0」ならば
元から1文字右端削除
違えば
一時￥22＝1
もし、一時￥21＝「.」ならば
元から1文字右端削除
一時￥22＝1
もし、一時￥22＝1ならば
抜ける
もし、元＝「」ならば
元＝「0」
元で戻る
＊大小判定（一番と、二番を）
一時とは文字列＝空
一時とは文字列＝空
一時￥１＝一番の文字数
一時￥２＝二番の文字数
もし、（一時￥１＜16） AND （一時￥２＜16）ならば
もし、一番＝二番ならば
0で戻る
もし、一番＞二番ならば
1で戻る
もし、一番＜二番ならば
2で戻る
一時￥１＝「｛一番｝」
一時￥２＝「｛二番｝」
もし、一時￥１＝一時￥２ならば
0で戻る
一時￥１＝一番から1文字左部分
一時￥２＝二番から1文字左部分
もし、一時￥１＝「-」ならば
もし、一時￥２＝「-」ならば
一時￥０＝「-」
一番の1から1文字削除
二番の1から1文字削除
違えば
2で戻る
違えば
もし、一時￥２＝「-」ならば
1で戻る
違えば
一時￥０＝「」
一時￥１＝一番で「.」の出現回数。
もし、一時￥１＝0ならば
一番＝「｛一番｝.」
一時￥２＝二番で「.」の出現回数。
もし、一時￥２＝0ならば
二番＝「｛二番｝.」
一番＝「:｛一番｝」
二番＝「:｛二番｝」
一時￥３＝一番の「:」から「.」まで範囲切り取る。
一時￥４＝二番の「:」から「.」まで範囲切り取る。
一時￥１＝一時￥３の文字数
一時￥２＝一時￥４の文字数
もし、一時￥１＞一時￥２ならば
もし、一時￥０＝「-」ならば
2で戻る
違えば
1で戻る
違えば
もし、一時￥２＞一時￥１ならば
もし、一時￥０＝「-」ならば
1で戻る
違えば
2で戻る
違えば
一時￥２回
一時￥１＝一時￥３から1文字左部分
一時￥２＝一時￥４から1文字左部分
もし、一時￥１＞一時￥２ならば
もし、一時￥０＝「-」ならば
2で戻る
違えば
1で戻る
もし、一時￥２＞一時￥１ならば
もし、一時￥０＝「-」ならば
1で戻る
違えば
2で戻る
一時￥３の1から1文字削除
一時￥４の1から1文字削除
一時￥１＝一番の文字数
一時￥２＝二番の文字数
もし、一時￥１＜一時￥２ならば
一時￥１＝一時￥２
一時￥１回
一時￥１＝一番から1文字左部分
一時￥２＝二番から1文字左部分
もし、一時￥１＞一時￥２ならば
もし、一時￥０＝「-」ならば
2で戻る
違えば
1で戻る
もし、一時￥２＞一時￥１ならば
もし、一時￥０＝「-」ならば
1で戻る
違えば
2で戻る
一番の1から1文字削除
二番の1から1文字削除
0で戻る
