2018-09-30 23:01:58 +01:00
---
title: S-Expressions
id: 59667989bf71cf555dd5d2ff
challengeType: 5
2019-08-05 09:17:33 -07:00
forumTopicId: 302303
2018-09-30 23:01:58 +01:00
---
## Description
< section id = 'description' >
2019-03-07 23:15:29 +09:00
< a href = "https://en.wikipedia.org/wiki/S-Expression" title = "wp: S-Expression" target = "_blank" > S-Expressions< / a > are one convenient way to parse and store data.
2018-09-30 23:01:58 +01:00
< / section >
## Instructions
< section id = 'instructions' >
2019-03-07 23:15:29 +09:00
Write a simple reader/parser for S-Expressions that handles quoted and unquoted strings, integers and floats.
The function should read a single but nested S-Expression from a string and return it as a (nested) array.
Newlines and other whitespace may be ignored unless contained within a quoted string.
2019-05-22 23:41:41 +09:00
"< tt > ()< / tt > " inside quoted strings are not interpreted, but treated as part of the string.
2019-05-23 13:57:59 +09:00
Handling escaped quotes inside a string is optional; thus "< tt > (foo"bar)< / tt > " may be treated as a string "< tt > foo"bar< / tt > ", or as an error.
2019-06-14 20:04:16 +09:00
For this, the reader need not recognize "< tt > \</tt>" for escaping, but should, in addition, recognize numbers if the language has appropriate data types.
2019-05-22 23:41:41 +09:00
Note that with the exception of "< tt > ()"</ tt > " ("< tt > \</tt>" if escaping is supported) and whitespace there are no special characters. Anything else is allowed without quotes.
2019-03-07 23:15:29 +09:00
The reader should be able to read the following input
< pre >
((data "quoted data" 123 4.5)
(data (!@# (4.5) "(more" "data)")))
< / pre >
2019-06-14 20:04:16 +09:00
and turn it into a native data structure. (See the < a href = "https://rosettacode.org/wiki/S-Expressions #Pike " title = " #Pike " target = "_blank" > Pike</ a > , < a href = "https://rosettacode.org/wiki/S-Expressions #Python " title = " #Python " target = "_blank" > Python</ a > and < a href = "https://rosettacode.org/wiki/S-Expressions #Ruby " title = " #Ruby " target = "_blank" > Ruby</ a > implementations for examples of native data structures.)
2018-09-30 23:01:58 +01:00
< / section >
## Tests
< section id = 'tests' >
```yml
2018-10-04 14:37:37 +01:00
tests:
2019-11-20 07:01:31 -08:00
- text: < code > parseSexpr</ code > should be a function.
2019-07-26 05:24:52 -07:00
testString: assert(typeof parseSexpr === 'function');
2019-03-19 15:04:03 +05:30
- text: < code > parseSexpr('(data1 data2 data3)')</ code > should return < code > ['data1', 'data2', 'data3']</ code >
2019-07-26 05:24:52 -07:00
testString: assert.deepEqual(parseSexpr(simpleSExpr), simpleSolution);
2019-03-19 15:04:03 +05:30
- text: < code > parseSexpr('(data1 data2 data3)')</ code > should return an array with 3 elements.
2019-07-26 05:24:52 -07:00
testString: assert.deepEqual(parseSexpr(basicSExpr), basicSolution);
2018-09-30 23:01:58 +01:00
```
< / section >
## Challenge Seed
< section id = 'challengeSeed' >
< div id = 'js-seed' >
```js
function parseSexpr(str) {
2020-09-15 09:57:40 -07:00
2018-09-30 23:01:58 +01:00
return true;
}
```
< / div >
### After Test
< div id = 'js-teardown' >
```js
2018-10-20 21:02:47 +03:00
const simpleSExpr = '(data1 data2 data3)';
const simpleSolution = ['data1', 'data2', 'data3'];
const basicSExpr = '((data "quoted data" 123 4.5) (data (!@# (4.5) "(more" "data)")))';
const basicSolution = [["data","\"quoted data\"",123,4.5],["data",["!@#",[4.5],"\"(more\"","\"data)\""]]];
2018-09-30 23:01:58 +01:00
```
< / div >
< / section >
## Solution
< section id = 'solution' >
```js
function parseSexpr(str) {
const t = str.match(/\s*("[^"]*"|\(|\)|"|[^\s()"]+)/g);
for (var o, c = 0, i = t.length - 1; i >= 0; i--) {
var n,
ti = t[i].trim();
if (ti == '"') return;
else if (ti == '(') t[i] = '[', c += 1;
else if (ti == ')') t[i] = ']', c -= 1;
else if ((n = +ti) == ti) t[i] = n;
2018-10-20 21:02:47 +03:00
else t[i] = `'${ti.replace('\'', '\\\'')}'` ;
2018-09-30 23:01:58 +01:00
if (i > 0 & & ti != ']' & & t[i - 1].trim() != '(') t.splice(i, 0, ',');
if (!c) if (!o) o = true; else return;
}
2018-10-02 15:02:53 +01:00
return c ? undefined : eval(t.join(''));
2018-09-30 23:01:58 +01:00
}
```
< / section >