fork download
copy 
  1.  (defun process-numeric-list()
  2.  ;; 可変長の数値リストを定義
  3.  (let ((data-list' (150 420 300 250 380)))
  4.  (format t "元のリスト: ~A~%" data-list)
  5.  ;; リストの要素を降順（>）にソートする
  6.  (let((sorted-list(sort data-list #'> )))
  7.  ;; 2番目の要素を抽出して表示
  8.  (format t "2番目の要素:~A~%" (second sorted-list)))))
  9.  
  10.  (process-numeric-list); your code goes here
Success #stdin #stdout #stderr 0.01s 9520KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
元のリスト: (150 420 300 250 380)
2番目の要素:380
stderr
copy 
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x15272fe00000 - 0x1527300e4fff
  0x152730215000 - 0x152730239fff
  0x15273023a000 - 0x1527303acfff
  0x1527303ad000 - 0x1527303f5fff
  0x1527303f6000 - 0x1527303f8fff
  0x1527303f9000 - 0x1527303fbfff
  0x1527303fc000 - 0x1527303fffff
  0x152730400000 - 0x152730402fff
  0x152730403000 - 0x152730601fff
  0x152730602000 - 0x152730602fff
  0x152730603000 - 0x152730603fff
  0x152730680000 - 0x15273068ffff
  0x152730690000 - 0x1527306c3fff
  0x1527306c4000 - 0x1527307fafff
  0x1527307fb000 - 0x1527307fbfff
  0x1527307fc000 - 0x1527307fefff
  0x1527307ff000 - 0x1527307fffff
  0x152730800000 - 0x152730803fff
  0x152730804000 - 0x152730a03fff
  0x152730a04000 - 0x152730a04fff
  0x152730a05000 - 0x152730a05fff
  0x152730a62000 - 0x152730a65fff
  0x152730a66000 - 0x152730a66fff
  0x152730a67000 - 0x152730a68fff
  0x152730a69000 - 0x152730a69fff
  0x152730a6a000 - 0x152730a6afff
  0x152730a6b000 - 0x152730a6bfff
  0x152730a6c000 - 0x152730a79fff
  0x152730a7a000 - 0x152730a87fff
  0x152730a88000 - 0x152730a94fff
  0x152730a95000 - 0x152730a98fff
  0x152730a99000 - 0x152730a99fff
  0x152730a9a000 - 0x152730a9afff
  0x152730a9b000 - 0x152730aa0fff
  0x152730aa1000 - 0x152730aa2fff
  0x152730aa3000 - 0x152730aa3fff
  0x152730aa4000 - 0x152730aa4fff
  0x152730aa5000 - 0x152730aa5fff
  0x152730aa6000 - 0x152730ad3fff
  0x152730ad4000 - 0x152730ae2fff
  0x152730ae3000 - 0x152730b88fff
  0x152730b89000 - 0x152730c1ffff
  0x152730c20000 - 0x152730c20fff
  0x152730c21000 - 0x152730c21fff
  0x152730c22000 - 0x152730c35fff
  0x152730c36000 - 0x152730c5dfff
  0x152730c5e000 - 0x152730c67fff
  0x152730c68000 - 0x152730c69fff
  0x152730c6a000 - 0x152730c6ffff
  0x152730c70000 - 0x152730c72fff
  0x152730c75000 - 0x152730c75fff
  0x152730c76000 - 0x152730c76fff
  0x152730c77000 - 0x152730c77fff
  0x152730c78000 - 0x152730c78fff
  0x152730c79000 - 0x152730c79fff
  0x152730c7a000 - 0x152730c80fff
  0x152730c81000 - 0x152730c83fff
  0x152730c84000 - 0x152730c84fff
  0x152730c85000 - 0x152730ca5fff
  0x152730ca6000 - 0x152730cadfff
  0x152730cae000 - 0x152730caefff
  0x152730caf000 - 0x152730caffff
  0x152730cb0000 - 0x152730cb0fff
  0x55559c3ea000 - 0x55559c4dafff
  0x55559c4db000 - 0x55559c5e4fff
  0x55559c5e5000 - 0x55559c644fff
  0x55559c646000 - 0x55559c674fff
  0x55559c675000 - 0x55559c6a5fff
  0x55559c6a6000 - 0x55559c6a9fff
  0x55559d4f7000 - 0x55559d517fff
  0x7fff75195000 - 0x7fff751b5fff
  0x7fff751dd000 - 0x7fff751e0fff
  0x7fff751e1000 - 0x7fff751e2fff
https://ideone.com/QibWy8
language:
Common Lisp (clisp 2.49.92)
created:
16 hours 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!