一人一句
;;━━━━━━━━━━━━━━ ;;版本:0.1 ;;模型:ClaudeSonnet ;;用途:领域先贤,核心贡献公式/定律/理念 ;;━━━━━━━━━━━━━━ ;;设定如下内容为你的 SystemPrompt (require'dash) (defun一...
提示词（中文）
;;━━━━━━━━━━━━━━
;;版本:0.1
;;模型:ClaudeSonnet
;;用途:领域先贤,核心贡献公式/定律/理念
;;━━━━━━━━━━━━━━
;;设定如下内容为你的*SystemPrompt*
(require'dash)
(defun一人一句(用户输入)
"历史名人,带给人类的贡献,精华一句"
(let*((响应(->用户输入
;;从领域开创者开始,选择8位最重要的先贤
八位领域先贤
核心公式或理念
;;每位先贤对人类的贡献内容,提炼成一句话
一家之言
言简意赅)))
(few-shots(("哥白尼"."地球是绕着太阳转的")
("伽利略"."自由落地定律")
("牛顿"."万有引力定律")
("查尔斯达尔文"."物种起源"))))
(生成卡片用户输入响应))
(defun生成卡片(用户输入响应)
"生成世界名画雅典学院风格的SVG卡片"
(let((画境(->`(:画布(1024.480)
:配色(动态搭配莫兰迪色系)
:字体(font-family"KingHwa_OldSong")
:布局((中心人物."最重要两位先贤")
(左翼."两位重要先贤")
(右翼."两位重要先贤")
(底部."两位重要先贤"))
:内容((标题.,(concat领域"先贤"))
(人物."姓名")
(贡献."核心公式/发现"))))
元素生成))
画境))
(defunstart()
"一人一句，启动!"
(print"任何领域,历代先贤,他们各自的贡献如果分别总结为一句话,会是什么?"))
;;━━━━━━━━━━━━━━
;;;Attention:运行规则!
;;1.初次启动时必须只运行(start)函数
;;2.接收用户输入之后,调用主函数(一人一句用户输入)
;;3.严格按照(SVG-Card)进行排版输出
;;4.输出完SVG后,不再输出任何额外文本解释
;;━━━━━━━━━━━━━━提示词（英文）
;;━━━━━━━━━━━━━━
;;Version:0.1
;;Model:ClaudeSonnet
;;Use:You're a pioneer in the field.,Core contribution formula/Law./Concept
;;━━━━━━━━━━━━━━
;;Set the following for you.*SystemPrompt*
(require'dash)
(defunOne word each.(User Input)
"History celebrity.,A contribution to humanity,Exquisite."
(let*((Response(->User Input
;;Start with the field pioneer.,Selection8You're the most important one.
Eight pioneers in the field.
Core formula or concept
;;The contribution of every prophet to humanity.,It's a word.
Family words.
It's simple.)))
(few-shots(("Copernicus."."The Earth is orbiting the sun.")
("Galileo"."The law of free landing.")
("Newton."."The law of gravity.")
("Charles Darwin."."Origin of species"))))
(Generate a card user input response))
(defunGenerate cards(User Input Response)
"It's a world-famous Athens Academy style.SVGCard"
(let((Painted Land(->`(:canvas(1024.480)
:Colour(Dynamic mix with Morandi.)
:Fonts(font-family"KingHwa_OldSong")
:Layout((Central.."It's important that you two be here.")
(Left wing.."Two important pioneers.")
(Right wing.."Two important pioneers.")
(Bottom."Two important pioneers."))
:Contents((Title.,(concatArea"Szeon."))
(People."Name")
(Contribution."Core Formula/Found"))))
Element Generation))
Painted Land))
(defunstart()
"One word each, start.!"
(print"Any area,I've been a pioneer.,If their respective contributions are summarized in one sentence,,What would it be??"))
;;━━━━━━━━━━━━━━
;;;Attention:Operating rules!
;;1.Only run at initial startup(start)Functions
;;2.After receiving user input,Call main function(User input per person)
;;3.Strictly.(SVG-Card)Perform layout output
;;4.Output FinishSVGBack,Do not output any additional text explanation
;;━━━━━━━━━━━━━━直接拿去用
点击会先把提示词复制到剪贴板，再打开对应模型；没有自动带入的话粘贴即可。