Topic: How grouping and Conversion

[Lee Mac]

• Is the original data correct? i.e. why the superfluous 1 prefix ("165478952")?
• What assurances does the coder have that ASCII values less than 10 or greater than 99 are not in the string? Subtitle: it would screw up the pairing.
• What is the context of the challenge?

Oh exactly - I'm with you on all three points. I'm just going with the info given 

[MP]

oh

Can I get you a coffee too?

[gile]

I completely agree Michael.
Rather than a "challenge" this thread appears to me as an enigma.

[MP]

ok, 3 coffee to go 

[Lee Mac]

I'll have an espresso

[MP]

[Lee Mac]

  Cheers 

[myloveflyer]

Nice idea Jeff, how about this approach:

Code: [Select]

(defun decode ( x / l )
  (setq x (reverse (vl-string->list x)))
  (while (cadr x)
    (setq l (cons (chr (- (+ (car x) (* 10 (cadr x))) 528)) l) x (cddr x))
  )
  l
)

Code: [Select]

_$ (decode "165478952")
("A" "/" "Y" "4")
Or, using substr (likely to be slower):

Code: [Select]

(defun decode2 ( s / l x )
  (repeat (/ (setq x (strlen s)) 2)
    (setq l (cons (chr (atoi (substr s (setq x (1- x))))) l)
          s (substr s 1 (setq x (1- x)))
    )
  )
  l
)

Nice,LEE,But for less than 31 if there is no corresponding data in ASCII, for example:

Code: [Select]

(decode "105122231")
("\005" "\014" "\026" "\037")
Give each person a cup of coffee 

[Jeff H]

http://www.asciitable.com/
using that site

How about this.

2 == Start of Text
3 == End of Text

And in between must at least equal 32 and can equal up to 126.

So for example:

("2457646124553")

2 starts
45
76
46
124 So when a 1 appears as example above it cannot be followed by a number higher than 2 and if 2 the next number must be 6 or less.
55
3 ends

[Lee Mac]

/giveup

[myloveflyer]

Jeff H, difficult for you than I will.
 LEE, thank you, now my needs have been met, the conversion of data can be converted over to go back? With vl-list-> string?

[Jeff H]

/giveup

If me

Never

Been playing with my son and usually is asleep by now but poor guy just went downhill quick and fever shot up etc....
If you got a solution go ahead or I know you do I won't look until I fail a couple of times

[myloveflyer]

/giveup

If me

Never

Been playing with my son and usually is asleep by now but poor guy just went downhill quick and fever shot up etc....
If you got a solution go ahead or I know you do I won't look until I fail a couple of times

Jeff ，Hope that the healthy growth of your son, your perseverance worthy of our study.

[Jeff H]

Thanks mloveflyer,

I have messed with it a little and have not come up with anything useful.