fork download
copy 
  1.  
  2.  (defun get-second-element (data-list)
  3.   (second data-list))
  4. (defun process-numeric-list ()
  5.   (let ((data-list '(150 420 300 250 380)))
  6.     ;; 複製して降順ソートし、2番目の要素を抽出
  7.     (let ((sorted-list (sort (copy-list data-list) #'>)))
  8.       (format t "2番目に大きい要素: ~A~%" (second sorted-list)))))
  9.  
  10. (process-numeric-list)
Success #stdin #stdout #stderr 0.01s 9564KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
2番目に大きい要素: 380
stderr
copy 
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x1525d5e00000 - 0x1525d60e4fff
  0x1525d6215000 - 0x1525d6239fff
  0x1525d623a000 - 0x1525d63acfff
  0x1525d63ad000 - 0x1525d63f5fff
  0x1525d63f6000 - 0x1525d63f8fff
  0x1525d63f9000 - 0x1525d63fbfff
  0x1525d63fc000 - 0x1525d63fffff
  0x1525d6400000 - 0x1525d6402fff
  0x1525d6403000 - 0x1525d6601fff
  0x1525d6602000 - 0x1525d6602fff
  0x1525d6603000 - 0x1525d6603fff
  0x1525d6680000 - 0x1525d668ffff
  0x1525d6690000 - 0x1525d66c3fff
  0x1525d66c4000 - 0x1525d67fafff
  0x1525d67fb000 - 0x1525d67fbfff
  0x1525d67fc000 - 0x1525d67fefff
  0x1525d67ff000 - 0x1525d67fffff
  0x1525d6800000 - 0x1525d6803fff
  0x1525d6804000 - 0x1525d6a03fff
  0x1525d6a04000 - 0x1525d6a04fff
  0x1525d6a05000 - 0x1525d6a05fff
  0x1525d6af1000 - 0x1525d6af4fff
  0x1525d6af5000 - 0x1525d6af5fff
  0x1525d6af6000 - 0x1525d6af7fff
  0x1525d6af8000 - 0x1525d6af8fff
  0x1525d6af9000 - 0x1525d6af9fff
  0x1525d6afa000 - 0x1525d6afafff
  0x1525d6afb000 - 0x1525d6b08fff
  0x1525d6b09000 - 0x1525d6b16fff
  0x1525d6b17000 - 0x1525d6b23fff
  0x1525d6b24000 - 0x1525d6b27fff
  0x1525d6b28000 - 0x1525d6b28fff
  0x1525d6b29000 - 0x1525d6b29fff
  0x1525d6b2a000 - 0x1525d6b2ffff
  0x1525d6b30000 - 0x1525d6b31fff
  0x1525d6b32000 - 0x1525d6b32fff
  0x1525d6b33000 - 0x1525d6b33fff
  0x1525d6b34000 - 0x1525d6b34fff
  0x1525d6b35000 - 0x1525d6b62fff
  0x1525d6b63000 - 0x1525d6b71fff
  0x1525d6b72000 - 0x1525d6c17fff
  0x1525d6c18000 - 0x1525d6caefff
  0x1525d6caf000 - 0x1525d6caffff
  0x1525d6cb0000 - 0x1525d6cb0fff
  0x1525d6cb1000 - 0x1525d6cc4fff
  0x1525d6cc5000 - 0x1525d6cecfff
  0x1525d6ced000 - 0x1525d6cf6fff
  0x1525d6cf7000 - 0x1525d6cf8fff
  0x1525d6cf9000 - 0x1525d6cfefff
  0x1525d6cff000 - 0x1525d6d01fff
  0x1525d6d04000 - 0x1525d6d04fff
  0x1525d6d05000 - 0x1525d6d05fff
  0x1525d6d06000 - 0x1525d6d06fff
  0x1525d6d07000 - 0x1525d6d07fff
  0x1525d6d08000 - 0x1525d6d08fff
  0x1525d6d09000 - 0x1525d6d0ffff
  0x1525d6d10000 - 0x1525d6d12fff
  0x1525d6d13000 - 0x1525d6d13fff
  0x1525d6d14000 - 0x1525d6d34fff
  0x1525d6d35000 - 0x1525d6d3cfff
  0x1525d6d3d000 - 0x1525d6d3dfff
  0x1525d6d3e000 - 0x1525d6d3efff
  0x1525d6d3f000 - 0x1525d6d3ffff
  0x5594c1d44000 - 0x5594c1e34fff
  0x5594c1e35000 - 0x5594c1f3efff
  0x5594c1f3f000 - 0x5594c1f9efff
  0x5594c1fa0000 - 0x5594c1fcefff
  0x5594c1fcf000 - 0x5594c1ffffff
  0x5594c2000000 - 0x5594c2003fff
  0x5594c3135000 - 0x5594c3155fff
  0x7ffcf16a3000 - 0x7ffcf16c3fff
  0x7ffcf16df000 - 0x7ffcf16e2fff
  0x7ffcf16e3000 - 0x7ffcf16e4fff
https://ideone.com/ctNWM4
language:
Common Lisp (clisp 2.49.92)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!