fork download
  1. ** create character codes for FMTbip
  2. X+++++++[->>F--->M-->T->b+>i++>p+++[+++++++++++++<]<]
  3. ** loop **
  4. X,+[
  5. ** convert 'A' to 0 'B' to 1 respectively **
  6. >Y++++++[-<X----------->Y]
  7. ** switch **
  8. Y+<X
  9. X[-[-[-[-[-[->Y
  10. * case G (Sol) *
  11. Y->>>T-.+>>>p-.---.++++<<<<<<Y
  12. <X]>Y[
  13. * case F (Fa) *
  14. Y->F.>>>b-.+<<<<Y
  15. Y]
  16. <X]>Y[
  17. * case E (Mi) *
  18. Y->>M.>>>i.<<<<<Y
  19. Y]
  20. <X]>Y[
  21. * case D (Re) *
  22. Y->>>T--.++>b+++.---<<<<Y
  23. Y]
  24. <X]>Y[
  25. * case C (Do) *
  26. Y->F--.++>>>>>p-.+<<<<<<Y
  27. Y]
  28. <X]>Y[
  29. * case B (Si) *
  30. Y->>>T-.+>>i.<<<<<Y
  31. Y]
  32. <X]>Y[
  33. * case A (La) *
  34. Y->>M-.+>>b-.+<<<<Y
  35. Y]
  36. <X,+]
  37.  
Success #stdin #stdout 0s 1864KB
stdin
CDEFGABCCBAGFEDC
stdout
DoReMiFaSolLaSiDoDoSiLaSolFaMiReDo