新規作成 | 管理 | 差分 | 検索 | FrontPage | ページ一覧 | 更新履歴 | RSS

PlugInで支出管理 - タバコ代を計算したいRicaさんに捧ぐ

管理

タバコ代を計算したいRicaさんに捧ぐ

expense

管理

(def expense 支出表を作成する
    (lambda ()
      (let (($sum 0))
        (tabulate 4
          (bold 費目 単価 数量 金額)
          (map-n 3
                 (lambda ($himoku $tanka $suryo)
                   (set! $sum (+ $sum (* $tanka $suryo)))
                   $himoku $tanka $suryo (* $tanka $suryo))
                 $_rest_)
          合計 == == $sum))))

(expense
 パン 105 2
 牛乳 213 1
)

費目単価数量金額
パン1052210
牛乳2131213
合計423

$_rest_ と set! を使っています。--SHIMADA 2003-07-25 (Fri) 15:30:43

なんか $sum の初期化を間違ってました。うまく動かないときの試行錯誤の痕跡でした。2003-07-25 (Fri) 17:59:39

ささげられた。

管理

日付単価数量金額
2003/07/2215690
2003/07/231510150
2003/07/241512180
合計420

1,000

日付喫煙費用__(15円×本数)節煙金額__(675円-喫煙費用)節煙金額累計メモ

↑こいなぐすんのが目標。

おまたせいたしました。

管理

やっと手をつけられました。 --SHIMADA 2003-07-29 (Tue) 12:50:47

(def numcomma テーブル内で数字を右寄せカンマ付にする
   (lambda ($num)
     (cat '" ' (comma $num) '"')))

(def tabaco ricaさん専用
    (lambda ()
      (let (($sum 0))
        (tabulate 5
                  (bold 日付 喫煙費用 節煙金額 累計 メモ)
                  (map-n 3
                         (lambda ($date $honsu $memo)
                           (let (($kingaku (- 675 (* 15 $honsu))))
                             (set! $sum (+ $sum $kingaku))
                             $date
                             (map numcomma (* 15 $honsu) $kingaku $sum)
                             $memo))
                         $_rest_)
	  リナザウまであと‥‥‥ == == == (cat '" ' (comma (- 45700 $sum)) '円"')))))

日付喫煙費用節煙金額累計メモ
2003/7/2960615615今日はちょっと。
2003/7/301505251,140今日はかなり。
リナザウまであと‥‥‥44,560円

あああああ。できてるぅ(喜)。

いえ、別に、「やってくれ」というつもりでもなかったのですが…。 いえ、ちょっと考えようとして、もう何がなんだか解らないので、「自分ではムリそうだなぁ」と思って放置したのも確かですが…(ここは小さい文字にできないので、ちょっと不便)。- rica 2003-07-29 (Tue) 14:03:43

煙草銭日誌

管理

日付喫煙費用節煙金額累計メモ
2003/07/2290585585 
2003/07/231505251,110PlugIn/defを考えていて45円浪費。
2003/07/241804951,605 
2003/07/251505252,130PlugInで支出管理を考えていて30円浪費。
2003/07/261355402,670 
2003/07/271954803,150 
2003/07/281804953,645りなざうまであと何円?(謎)
2003/07/291804954,140最近、午前中に浪費気味なんだよなぁ。
2003/07/302104654,605CSS祭りで濫費。
2003/07/311804955,100一応、1日11本以内が目標なんだけどなぁ。
2003/08/012404355,53510時台に8本とは由々しき事態。
2003/08/022104656,000最近の浪費傾向は頂けません。100円台には収めたいものです。
2003/08/031205556,555昨日一箱が切れたので、午前中禁煙してみました。
2003/08/041205557,110 
2003/08/051655107,620 
2003/08/063303457,96522本…?何があったんだ…私…。何もないけど。
2003/08/072404358,400まだ浪費癖が直らないらしい。
2003/08/082254508,850まだ浪費癖が直らないらしい。その2
2003/08/093003759,225浪費癖は直るどころかひどくなっているらしい。
2003/08/101804959,720 
2003/08/1118049510,215 
2003/08/1224043510,650中々浪費癖が収まらない。15本前後で落ち着いてしまうのだろうか。
2003/08/1315052511,175 
2003/08/1415052511,700 
2003/08/1515052512,225 
2003/08/1615052512,750 
2003/08/1719548013,230 
2003/08/1810557013,800とりあえず、2日で1箱ペースを守っております。
2003/08/1913554014,340 
2003/08/2016551014,850せっかく昨日9本に押さえて貯金をこさえたのに…。
リナザウまであと‥‥‥30,850円

カンマ付にしてみました。 --SHIMADA 2003-07-29 (Tue) 15:31:23

あ、右寄せにもなってる♪ - rica 2003-07-29 (Tue) 17:04:40

あー、合計もカンマ付きに出来たぁ(それだけのことが嬉しいらしい)。- rica 2003-07-29 (Tue) 17:09:13

(謎)を解く式を追加してみました。(価格.comしらべ)--SHIMADA 2003-07-29 (Tue) 17:23:07

う〜ん、月毎に区切るとかしないと、表がどんどん長大になってしまう…。 前月繰越とかって、やれば出来るんだろうなぁ。多分。- rica 2003-08-19 (Tue) 10:50:01

繰り越してみる (8月)

管理

こういうのはどうでしょうか。 --hirofummy 2003-08-20 (Wed) 17:08:13

あれ、全然気付いてなかった…! hirofummy兄さん、ここは差分履歴がないんだから sage で書くのは反則ですよぉ(T_T)。PlugInを駆使して予定表を作る のお祭りも気付かなかったじゃないですかぁ。…っていうか、随分前にここにも差分履歴をつけようとして…忘れてたんだった…。- rica 2003-08-22 (Fri) 20:38:26

だからあちらこちらって言ったじゃないですか :) --hirofummy --2003-08-22 (Fri) 22:02:00

こちら辺りかと思ったんですもん(;_;)。って言うか念のために見回りにきたら、また sage で…。- rica 2003-08-22 (Fri) 23:25:42

2箇所だけなんて言ってないもんねー。というわけで努力目標通りのペースで節煙が進んだ場合、後約2ヶ月でLinuZau?に手が届くわけですね。楽しみ。 --hirofummy 2003-08-23 (Sat) 00:00:49

…LinuZau?基金の次は、LANカード基金に移行だったりして…。- rica 2003-08-23 (Sat) 12:43:38

日付喫煙費用節煙金額累計メモ
繰越分--5,100目指せLinuZau?
2003/08/012404355,53510時台に8本とは由々しき事態。
2003/08/022104656,000最近の浪費傾向は頂けません。100円台には収めたいものです。
2003/08/031205556,555昨日一箱が切れたので、午前中禁煙してみました。
2003/08/041205557,110 
2003/08/051655107,620 
2003/08/063303457,96522本…?何があったんだ…私…。何もないけど。
2003/08/072404358,400まだ浪費癖が直らないらしい。
2003/08/082254508,850まだ浪費癖が直らないらしい。その2
2003/08/093003759,225浪費癖は直るどころかひどくなっているらしい。
2003/08/101804959,720 
2003/08/1118049510,215 
2003/08/1224043510,650中々浪費癖が収まらない。15本前後で落ち着いてしまうのだろうか。
2003/08/1315052511,175 
2003/08/1415052511,700 
2003/08/1515052512,225 
2003/08/1615052512,750 
2003/08/1719548013,230 
2003/08/1810557013,800とりあえず、2日で1箱ペースを守っております。
2003/08/1913554014,340 
2003/08/2016551014,850せっかく昨日9本に押さえて貯金をこさえたのに…。
2003/08/2119548015,330貯金もないのに13本…(どうやら努力目標は2日で1箱に落ち着いた模様)。
2003/08/2219548015,810もろくも「2日で1箱」は崩れた。
2003/08/2321046516,275 
2003/08/2422545016,725 
2003/08/257560017,325もらい煙草でズル。
2003/08/2619548017,805 
2003/08/2716551018,315 
2003/08/2824043518,750煙草は痛み止めになるという言い伝えがあるのです。
2003/08/2921046519,215 
2003/08/3016551019,725 
2003/08/3122545020,175 
リナザウまであと‥‥‥36,625円

9月

管理

日付喫煙費用節煙金額累計メモ
繰越分--20,175目指すのかLinuZau?
2003/09/0121046520,640 
2003/09/0216551021,150 
2003/09/0321046521,615 
2003/09/0418049522,110 
2003/09/0527040522,515ちょっとヤケを起こしました…。
2003/09/0616551023,025 
2003/09/0718049523,520 
2003/09/0819548024,000まぁ、キリのいい累計だわ。
2003/09/0922545024,450 
2003/09/1024043524,885 
2003/09/1124043525,320 
2003/09/1224043525,755すっかり16本で落ち着く気配?
2003/09/1318049526,250 
2003/09/1419548026,730 
2003/09/1521046527,195 
2003/09/1619548027,675 
2003/09/1724043528,110 
2003/09/1827040528,515途中カウントせずにいたらこんなことに。
2003/09/1925542028,935またまたこんなことに。
2003/09/2013554029,475 
2003/09/2124043529,910 
2003/09/2215052530,435 
2003/09/2321046530,900 
2003/09/2427040531,305 
2003/09/2518049531,800 
2003/09/2615052532,325 
2003/09/2719548032,805 
2003/09/2819548033,285 
2003/09/2915052533,810 
2003/09/3013554034,350 
リナザウまであと‥‥‥22,450円

10月

管理
日付喫煙費用節煙金額累計メモ
繰越分--34,350目指すのか760(最安56800)
2003/10/0122545034,800 
2003/10/0215052535,325 
2003/10/0315052535,850750まで1万円を切った。760だと… 
2003/10/0418049536,345 
2003/10/0519548036,825 
2003/10/0622545037,275 
2003/10/0718049537,770 
2003/10/0818049538,265 
2003/10/0924043538,700 
2003/10/1019548039,180 
2003/10/1110557039,750 
2003/10/1219548040,230 
2003/10/1319548040,710 
2003/10/1422545041,160 
2003/10/1521046541,625 
2003/10/167560042,225お出かけとかでちょっとズル。
2003/10/1722545042,675 
2003/10/1819548043,155 
2003/10/1925542043,575ちょっとヤケ。
2003/10/2019548044,055さりげなく目標変更…。
2003/10/2125542044,475 
2003/10/2224043544,910 
2003/10/2324043545,345 
2003/10/2427040545,750 
2003/10/2524043546,185 
2003/10/2625542046,605 
2003/10/2725542047,025 
2003/10/2810557047,595 
2003/10/2918049548,090 
2003/10/3016551048,600 
2003/10/3116551049,110 
リナザウまであと‥‥‥7,690円

しまった。さりげなく目標を 760 にしたのに、また残り1万円を切ってしまったぞ。 でも、シャンパンゴールドの真偽が判るまでは保留だもんね。

11月

管理
日付喫煙費用節煙金額累計メモ
繰越分--49,110どうなるシャンパンゴールド
2003/11/0127040549,515 
2003/11/0224043549,950 
2003/11/0325542050,370 
2003/11/0419548050,850 
2003/11/0527040551,255 
2003/11/0627040551,660 
2003/11/0725542052,080 
2003/11/0827040552,485 
2003/11/0921046552,950 
2003/11/1027040553,355 
2003/11/1125542053,775 
2003/11/1227040554,180 
2003/11/1328539054,570 
2003/11/1428539054,960 
2003/11/1528539055,350 
2003/11/1628539055,740 
2003/11/1728539056,130 
2003/11/1830037556,505最近、すっかりほとんど1日1箱ペース。
2003/11/1928539056,895 
2003/11/2012055557,450 
2003/11/2124043557,885 
2003/11/2224043558,320 
2003/11/2333034558,665とうとう1箱を越えた…。
2003/11/2431536059,025また1箱を越えた…。
2003/11/2530037559,400 
2003/11/2633034559,745 
2003/11/2731536060,105 
2003/11/2833034560,450 
2003/11/2925542060,870すっかり1箱ペース。
2003/11/3034533061,200 
リナザウまであと‥‥‥-4,400円

2003-11-07 (Fri) 06:48:10 memn0ck : タバコ貯金が新型Zaurusが丁度買えそうなタイミングっぽく貯まっていて楽しみですね(笑)。

12月

管理
日付喫煙費用節煙金額累計メモ
繰越分--61,200次の目標は…。
2003/12/0128539061,590 
2003/12/0227040561,995 
2003/12/0331536062,355 
2003/12/0433034562,7001日1箱でいいと開き直ったようだな…。
2003/12/0530037563,075 
2003/12/0630037563,450 
2003/12/0730037563,825 
2003/12/0830037564,200 
2003/12/0927040564,605 
2003/12/1030037564,980 
2003/12/1122545065,430 
2003/12/1230037565,805 
2003/12/1333034566,150 
2003/12/1430037566,525 
2003/12/1530037566,900 
2003/12/1622545067,350 
2003/12/1725542067,770 
2003/12/1825542068,190 
2003/12/1922545068,640 
2003/12/2024043569,075 
2003/12/2130037569,450 
2003/12/2225542069,870 
2003/12/2330037570,245 
2003/12/2433034570,590 
2003/12/2533034570,935 
2003/12/2618049571,430 
2003/12/2721046571,895 
2003/12/2828539072,285 
2003/12/2933034572,630 
2003/12/3025542073,050 
2003/12/3119548073,530 
リナザウまであと‥‥‥-16,730円

え?テストですよ?

管理
2003-08-31: リナザウを買う 2003-08-31: 買ったけどお母さんに怒られて返品

日付喫煙費用節煙金額累計メモ
2003-10-3075600600雑談
2003-10-311505251,125tag-linksとの複合を考えるテスト 雑談
2003-11-011055701,695どこに記述してもまとめて一覧にできるな… 雑談
リナザウまであと‥‥‥44,005円

↑これは何のてすと? - rica 2003-11-01 (Sat) 16:52:03
あ、わかった。

えっと、tag-linksとの連携テストです…日々の日記とかメモの最後の方にタグ付きで書いておけば、ここでまとめて集計できる…と

カテゴリ別おこづかい帳になるかな? - たろう 2003-11-04 (Tue) 18:05:35