首页
学习
活动
专区
圈层
工具
发布
社区首页 >问答首页 >需要MUMPS示例代码

需要MUMPS示例代码
EN

Stack Overflow用户
提问于 2010-11-11 13:16:44
回答 7查看 10.7K关注 0票数 11

我正在开发一个分析工具,我需要MUMPS示例代码。有没有人能给我提供MUMPS的实时代码或示例代码?也建议一些相同的链接。

EN

回答 7

Stack Overflow用户

发布于 2011-06-16 06:14:42

这是我写的一些流行性喉炎,只是为了好玩。我猜如果你能分析这一点,你的工具就可以工作了:

代码语言:javascript
复制
Q N R,Q,C,D,E,W,B,G,H,S,T,U,V,F,L,P,N,J,A S N=$G(N),Q='N,F=Q+Q,P=F+F,W=$L($T(Q))
 S W=$E(W,Q),S='N_+N,W=W-F*S,L=$G(L),R=$C(Q_F_P),R(F)=$C(F+Q_F),R(P)=$C(W-F) W #
 S T=$E($T(Q+F),F,W\S)_$C(W+S+F) X T S B=$P(T,$C(P_P),F),C=B\(W*W),D=B-(C*W*W)\W
 F G=S-Q:F:S+F+Q S E=B-(C*W*W+(D*W)),H=$E($T(Q),G),@H=$S(@H<S:'Q,Q:N)_@H,T=C_D_E
 F A=Q:Q:W\S S J=$E(T,A),C(F)=$S(J>(F+Q)&(J<(S-F)):Q,Q:+N),C(P)=$S(J#F:Q,Q:+N) D
 .S C(Q)=$S(J<(S-F):+N,Q:Q),C(F+Q)=$S(J>Q&(J<(S-F))&(J'=(P+'L))&(J'=(P)):Q,Q:+N)
 .S H('L)=L F  S H(N?.E)=$O(C(H('$G(N)))) Q:H('+L)=L  S F(A,H('L))=C(H(W[(W\S)))
 F U=Q:Q:P W !,R F V=Q:Q:P+F W $S(F(V,U):'Q,Q:$C(P_(W\S))) W:'(V#F) $C('N_F_F+F)
 W !!,R(F)_C_R(P)_D_R(P)_E_R(F) X $RE($E($T(Q),Q+F,P+Q))_R(P)_'N W # G:N=L Q+F Q

听着,妈,不要字面意思!

这将输出一个二进制时钟:

代码语言:javascript
复制
:D Q^ROU


|..|..|..|
|..|..|.0|
|..|.0|0.|
|..|00|..|

 00:13:24
票数 24
EN

Stack Overflow用户

发布于 2012-08-31 01:29:21

GitHub实际上托管了许多MUMPS软件,但不幸的是它被标记为Objective-C或Matlab语言,因此在那里搜索MUMPS代码并不容易。以下是我知道的一些项目,至少部分是使用MUMPS完成的:

  1. OSEHRA
  2. Reynard GT.M Server
  3. GT.M Term Size
  4. GT.M POSIX Extension
  5. Tetris in MUMPS
  6. Juicy MUMPS Example
  7. GT.M PCRE Extension
  8. GT.M Digest Extension
  9. DataBallet
  10. Source KIDS
  11. Software development tools for MUMPS
票数 4
EN

Stack Overflow用户

发布于 2010-11-12 08:37:51

我认为所有这些都不足以用于分析目的,但在M[UMPS] by Example上有很多小示例。在MUMPS Wikipedia页面上也有一些很长的示例。我不知道他们是不是独立的。我自己还没有测试过。

票数 3
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/4151554

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档