Canonicalize CIDR: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (Automated syntax highlighting fixup (second round - minor fixes)) |
(→{{header|TXR}}: New section.) |
||
| Line 1,746: | Line 1,746: | ||
161.214.74.0/24 |
161.214.74.0/24 |
||
184.232.128.0/18</pre> |
184.232.128.0/18</pre> |
||
=={{header|TXR}}== |
|||
<syntaxhighlight lang="txrlisp">(defun cidr-canon (str) |
|||
(match `@dots/@bits` str |
|||
(let ((inaddr (inaddr-str dots).addr) |
|||
(bits (int-str bits))) |
|||
`@(str-inaddr (logand inaddr (ash -1 (- 32 bits))))/@bits`)))</syntaxhighlight> |
|||
=={{header|UNIX Shell}}== |
=={{header|UNIX Shell}}== |
||
{{works with|Bourne Again SHell}} |
{{works with|Bourne Again SHell}} |
||
| Line 1,801: | Line 1,807: | ||
161.214.74.0/24 |
161.214.74.0/24 |
||
184.232.128.0/18</pre> |
184.232.128.0/18</pre> |
||
=={{header|Wren}}== |
=={{header|Wren}}== |
||
{{trans|Ruby}} |
{{trans|Ruby}} |
||