Solution

Challenges » Solution

Name: PSADME Author: Edward Hou Download: Challenge6.8xp Compatibility: Parent page not set File Size: 599 bytes

Parses expressions using mixed-up precedence rules.

What the community thinks:

Edward H 03 Jan 2009 20:27

Here is a copy-and-paste from SourceCoder 2 (copyright Cemetech 2005)
I'm not sure how to add source code to the program.

:"?→Str2
:"??π??^x√^?*/?+-‾→Str9
:"int(.34inString(Str9,Ans→Y1
:DelVar ADelVar DDelVar N{0→O
:Input Str0
:Str0+"π→Str0
:For(I,1,length(Str0
:Disp ∟O
:Pause Str2
:sub(Str0,I,1→Str1
:inString("0123456789.",Str1→T
:If Ans:Then
:If D:Then
:N+(Ans-1)10^‾D→N
:D+1→D
:Else
:Ans=11→D
:If not(Ans
:10N+T-1→N
:1→A
:End
:Else
:If A:Then
:DelVar ADelVar Daugment({N},∟O→O
:DelVar N
:End
:Str1:Y1→P
:If Ans:Then
:sub(Str2,1,1
:If Ans="^x√
:Then
:"^"+sub(Str2,2,length(Str2)-1→Str2
:∟O(2→X
:∟O(1→∟O(2
:X-1→∟O(1
:Else
:While P≤Y1 and not(P=Y1 and (Str1="‾" or Ans="‾
:If Ans="‾
:Then
:‾∟O(1→∟O(1
:Else
:expr("∟O(2)"+Ans+"∟O(1"→∟O(2
:DeltaListcumSum(∟O→O
:End
:sub(Str2,2,length(Str2)-1→Str2
:sub(Str2,1,1
:End
:End
:Str1+Str2→Str2
:Else
:If Str1="(
:Str1+Str2→Str2
:inString("√(3√(",Str1
:If Ans:Then
:augment({Ans+1},∟O→O
:"(^x√"+Str2→Str2
:End
:If Str1=")
:Then
:inString(Str2,"(→T
:For(J,1,T-1
:sub(Str2,J,1
:If Ans="‾
:Then
:‾∟O(1→∟O(1
:Else
:expr("∟O(2)"+Ans+"∟O(1"→∟O(2
:DeltaListcumSum(∟O→O
:End
:End
:sub(Str2,T+1,length(Str2)-T→Str2
:End
:End
:End
:End
:∟O(1

Last edited on 03 Jan 2009 20:28 by Edward H Show more

Re:

rthprog 03 Jan 2009 22:12

by which you mean that you're not sure how to modify the program within sourcecoder? Just hit the "export as .8xp" button…

Re:

Edward H 04 Jan 2009 05:43

I mean I'm not sure how to add the source code to this page, as if I had submitted source code instead of a program file.

Partial Solution

ODF 29 May 2016 18:15

I just got a working program, so I'll just post it now and finish it later. This accomplishes the task but does not do whatever is in parentheses first, and does not respect special functions like x√ yet. These are simple fixes, though. Take the quote off the "Pause Str1 to see each step. It adds a ton of parentheses so that there are more around the earlier operations. This program is also versatile in that changing the order of the characters in Str0 changes the order of operations, so changing Str0 to "²‾ֿ¹^×÷+-" would actually just evaluate the expression with the regular order of operations.

:ClrHome
:{0→L₁
:"+-×÷^²‾ֿ¹→Str0
:0→C
:Input "Expression:     ",Str1
:For(A,1,length(Str0
:For(B,1,length(Str1
:inString(Str1,sub(Str0,A,1),B→D
:If D and D+A÷10≠L₁(1+dim(L₁
:D+A÷10→L₁(1+dim(L₁
:End
:End
:1+length(Str1→L₁(1+dim(L₁
:SortA(L₁
:"0+"+Str1+"+0→Str1
:2+L₁→L₁
:For(A,1,length(Str0)-1
:For(B,2,dim(L₁)-1
:If 10fPart(L₁(B))≤A:Then
:iPart(L₁(B-1→C
:iPart(L₁(B+1→D
:sub(Str1,1,C)+"("+sub(Str1,C+1,D-C-1)+")"+sub(Str1,D,length(Str1)-D+1→Str1
:"Pause Str1
:seq(L₁(X)+(X>B-1)+(X≥B+1),X,1,dim(L₁→L₁
:End
:End
:End
:expr(Str1

It's kinda funny to look at Str1 after the program has finished on an input of "1+2-3×4÷5^6".

Socks 04 Jan 2009 20:07

Eh, I'd need to ask James how he wants it done. James?

---

/Socks

Re:

Timothy Foster 04 Jan 2009 21:52

Well, if you click "show more" or whatever it says under Challenge 7, the table for program uploads show. On the end of the table, there is a spot for submitting a code instead of program file.

---

---

Timothy Foster - @tfAuroratide
Auroratide.com - Go here if you're nerdy like me

Want to update this page?

• Upload new files to provide up-to-date versions of your program;
• or Edit the content of this page to provide up-to-date information about your program.

A moderator will only process these changes if you add the word update to the list of tags