优雅地让Mathematia不约分分数

问题来自群友，内容严格讲也并非我原创，事后整理了一下

其实我首先想到的是Inactive，但是试了一下，套了这个东西之后除法并不会显示为分数线，只会显示成“/”

然后想到，放在Defer里面的表达式是不会被简化的，试试？Defer[4/6]

把Defer的这个特性巧妙地赋予除法，之前群里有讨论过，使用复合函数即可Defer@*Divide，这样就造出了一种暂时不会约分分式的除法，然后把这个触发应用到分数上即可

sol=Solve[{(10a+b)/(10b+c)==a/c,1<={a,b,c}<=9,a!=c},{a,b,c},Integers]
Defer@*Divide@@@({10a+b,10b+c}/.sol)

截图如下