;;プロンプトワード：動物の一生
作者：スペース・ゼファー
(defun 動物のライフサイクル ()
"動物のライフサイクルのSVGグラフと説明を生成する"
(lambda (subject)
(let* ((life-stage (get life-stage theme)))
(science data (科学データのテーマを取得))
(背景スタイル (背景デザインテーマ))
(タイムライン (タイムラインテーマの作成))
(ステージ絵文字（ステージ絵文字テーマを選択）
(デコレーション絵文字（デコレーション絵文字テーマを選択）
(サブタイトル (サブタイトルテーマ科学データの生成))
(Create Optimised SVG Chart Theme Life Stage Science Data Background Style Timeline Stage emoji Decoration emoji Subtitle )))
(defun ライフステージの取得 (テーマ)
"テーマの主なライフステージを取得"
(case テーマ
(セミ '("卵" "覚醒期（地下）" "成虫期"))
(whale '("胎児期" "幼年期" "青年期" "成年期" "老年期"))
(キリン '("新生児期" "幼年期" "青年期" "成年期" "老年期"))
(t '("幼年期" "成人期" "成熟期" "老年期" ))))
(定義：科学データの取得 (トピック)
"トピックのSFデータのリストを取得"
(case テーマ
(蝉 '(("卵は小枝の中で6～10週間孵化し、一度に200～600個の卵を産む"))
"ワカメは何年も地中で生き、木の根から樹液を吸って生き延びる"
「ワカメは5回の脱皮を繰り返し、20倍まで大きくなる。
「最後の脱皮の後、地中に潜って成虫になる。
「成虫の期間はわずか4～6週間で、繁殖と鳴き声に専念する")
"セミの地下潜伏期間は最長17年で、成虫の生存期間はわずか4～6週間、鳴き声は120デシベルに達し、航空機の離陸音に匹敵する"))
(鯨 '(("シロナガスクジラの胎児は1日に90キログラム増え、出生時の体重は2.5トン、体長は7メートル")))
「若いクジラは1日に380リットルのミルクを飲み、7ヶ月で30トンも体重が増える。
「若いシロナガスクジラは水深200メートルに潜り、40分間息を止めることができる。
「大人のシロナガスクジラは体長30メートル、体重190トン、1日に4トンのオキアミを食べる。
「最も長生きするシロナガスクジラは110歳にもなり、一生のうちに地球の赤道距離を13回泳ぐことができる")
"シロナガスクジラは地球上で最大の動物であり、心臓の重さは600キロ、舌の重さはゾウ並み、鳴き声は1,600キロも伝わる"))
(t '(("第1段階のデータの説明"
「ステージ2のデータの説明"
「ステージ3のデータ説明"
「ステージ4のデータの説明"
「ステージ5のデータの説明")
"一般的なテーマに関する興味深いデータの説明" )))
(defun 背景のデザイン (テーマ)
"テーマに基づいて適切なコンテキストを設計する"
(ケーステーマ
(セミ '(グラデーション "E6F3FF" "B3E5FC" 陸地))
(クジラ '(グラデーション "E3F2FD" "90CAF9" 海))
(キリン '(勾配 "FFFF8E1" "FFE0B2" 草原))
(t '(勾配 "F5F5F5" "E0E0E0" ジェネリック )))
(defun タイムラインの作成 (テーマ)
"テーマのライフサイクルのタイムラインを作成する"
(case テーマ
(セミ '("0年" "4年" "8年" "12年" "16年" "17年"))
(鯨 '("0年" "10年" "25年" "50年" "75年" "100年"))
(キリン '("0ヶ月" "6ヶ月" "2年" "4年" "15年" "25年"))
(t '("初期" "成長期" "成熟期" "後期" "老化期" ))))
(defun select ステージ絵文字 (テーマ)
"ライフステージに関連する絵文字を選択"
(case テーマ
(セミ '("🥚" "🐛" "ᦟ" ))
(Whale '("🤰" "🍼" "🏊" "ᐋ" "👵"))
(giraffe '("👶" "🐕"))
(t '("🌱" "🌿" "🌳" "🍂" ))))
(defun 装飾絵文字を選択 (テーマ))
"テーマに関連する装飾絵文字を選択する"
(case テーマ
(cicada '("🌳" "🍂"))
(Whale '("🌊" "🐙"))
(giraffe '("🌴" "🦁"))
(t '("🌱" "🌳" "🍃" "🌞" ))))
(defun サブタイトルの生成 (件名 Kopp データ))
"ポピュラーサイエンスデータに基づく小見出しの生成"
(format "ご存知ですか？ %s" (2番目の要素 Kopp data)))
(defun create optimised SVG chart (theme life stage science data background style timeline stage emoji decoration emoji subtitle))
"最適化されたライフサイクルSVGチャートの作成"
(let ((svg-template
"のようにする。
<defs
<linearGradient id="bgGradient" x1="0%" y1="0%" x2="0%" y2="100%"
</linearGradient
</defs
</rect
{背景装飾)
{テーマ}The Life</text
<text x="400" y="60" text-anchor="middle" class="subtitle" fill="#5555"
{subtitle_first_line}</tspan
{Subtitle_second_line}</tspan
</text
{タイムスタンプ｝
{ライフステージ・タグ｝
データポイントとSF情報} {!
らしい。
<rect x="50" y="460" width="700" height="30" fill="rgba(255,255,255)Γ
<text x="60" y="480" class="legend-text" fill="Legend:</text
</circle
<text x="170" y="480" class="legend-text" fill="Life Stages</text
<line x1="270" y1="470" x2="270" y2="480"。
<text x="290" y="480" class="legend-text" fill="Lifeコース</text
<text x="420" y="480" class="legend-text" fill="伝説の絵文字} <!
{ボトムデコレーション絵文字｝
"))
(fill optimised SVG template svg-template theme life stage science data background style timeline stage emoji decoration emoji subtitle)))
(defun start ()
(print "学びたいライフテーマを入力してください（セミ、クジラ、キリンなど）:")
(let ((ユーザー入力 (読み取り)))
(ライフサイクルビルダーのユーザー入力を最適化する))
ルールの実行
1.起動時に(start)関数を実行する。
2.ユーザーが入力したトピックに基づいて、ライフサイクルのSVG図と説明を生成する。
出力には、最適化されたSVGダイアグラムと、科学的データや興味深い事実を強調した関連するテキスト説明が含まれる。
