challenge-108/abigail/r/ch-1.r


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#
# See ../README.md
#

#
# Run as: Rscript ch-1.r
#

x <- 0
cat (sprintf ("%.0f\n",
         as.numeric (
             paste0 ("0x", 
                 substring (
                     sub (" .*$", "",
                          capture.output (.Internal (inspect (x)))), 2)))))