diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-02-26 00:56:22 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-02-26 00:56:22 +0000 |
| commit | 35a5340887722dac61df673aa6ecca4ddb07c5a5 (patch) | |
| tree | d231c64d9dc9f2cc9994b0454d27df895de57ffa /src | |
| parent | 31a051dbd65eb0d55603fe8cba998abe4c0f14e2 (diff) | |
more examples
Diffstat (limited to 'src')
| -rw-r--r-- | src/zip.clj | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/zip.clj b/src/zip.clj index 08489b78..f661edbe 100644 --- a/src/zip.clj +++ b/src/zip.clj @@ -218,4 +218,17 @@ remove [loc] (-> dz next remove next remove root) +(loop [loc dz] + (if (end? loc) + (root loc) + (recur (next (if (= '* (node loc)) + (replace loc '/) + loc))))) + +(loop [loc dz] + (if (end? loc) + (root loc) + (recur (next (if (= '* (node loc)) + (remove loc) + loc))))) ) |