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番目の要素（2番目に大きい値）を抽出して表示
  8.       (format t "2番目の要素: ~A~%" (second sorted-list)))))
  9.  
  10. (process-numeric-list)
Success #stdin #stdout #stderr 0.01s 9548KB
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
  0x151a49e00000 - 0x151a4a0e4fff
  0x151a4a215000 - 0x151a4a239fff
  0x151a4a23a000 - 0x151a4a3acfff
  0x151a4a3ad000 - 0x151a4a3f5fff
  0x151a4a3f6000 - 0x151a4a3f8fff
  0x151a4a3f9000 - 0x151a4a3fbfff
  0x151a4a3fc000 - 0x151a4a3fffff
  0x151a4a400000 - 0x151a4a402fff
  0x151a4a403000 - 0x151a4a601fff
  0x151a4a602000 - 0x151a4a602fff
  0x151a4a603000 - 0x151a4a603fff
  0x151a4a680000 - 0x151a4a68ffff
  0x151a4a690000 - 0x151a4a6c3fff
  0x151a4a6c4000 - 0x151a4a7fafff
  0x151a4a7fb000 - 0x151a4a7fbfff
  0x151a4a7fc000 - 0x151a4a7fefff
  0x151a4a7ff000 - 0x151a4a7fffff
  0x151a4a800000 - 0x151a4a803fff
  0x151a4a804000 - 0x151a4aa03fff
  0x151a4aa04000 - 0x151a4aa04fff
  0x151a4aa05000 - 0x151a4aa05fff
  0x151a4aab0000 - 0x151a4aab3fff
  0x151a4aab4000 - 0x151a4aab4fff
  0x151a4aab5000 - 0x151a4aab6fff
  0x151a4aab7000 - 0x151a4aab7fff
  0x151a4aab8000 - 0x151a4aab8fff
  0x151a4aab9000 - 0x151a4aab9fff
  0x151a4aaba000 - 0x151a4aac7fff
  0x151a4aac8000 - 0x151a4aad5fff
  0x151a4aad6000 - 0x151a4aae2fff
  0x151a4aae3000 - 0x151a4aae6fff
  0x151a4aae7000 - 0x151a4aae7fff
  0x151a4aae8000 - 0x151a4aae8fff
  0x151a4aae9000 - 0x151a4aaeefff
  0x151a4aaef000 - 0x151a4aaf0fff
  0x151a4aaf1000 - 0x151a4aaf1fff
  0x151a4aaf2000 - 0x151a4aaf2fff
  0x151a4aaf3000 - 0x151a4aaf3fff
  0x151a4aaf4000 - 0x151a4ab21fff
  0x151a4ab22000 - 0x151a4ab30fff
  0x151a4ab31000 - 0x151a4abd6fff
  0x151a4abd7000 - 0x151a4ac6dfff
  0x151a4ac6e000 - 0x151a4ac6efff
  0x151a4ac6f000 - 0x151a4ac6ffff
  0x151a4ac70000 - 0x151a4ac83fff
  0x151a4ac84000 - 0x151a4acabfff
  0x151a4acac000 - 0x151a4acb5fff
  0x151a4acb6000 - 0x151a4acb7fff
  0x151a4acb8000 - 0x151a4acbdfff
  0x151a4acbe000 - 0x151a4acc0fff
  0x151a4acc3000 - 0x151a4acc3fff
  0x151a4acc4000 - 0x151a4acc4fff
  0x151a4acc5000 - 0x151a4acc5fff
  0x151a4acc6000 - 0x151a4acc6fff
  0x151a4acc7000 - 0x151a4acc7fff
  0x151a4acc8000 - 0x151a4accefff
  0x151a4accf000 - 0x151a4acd1fff
  0x151a4acd2000 - 0x151a4acd2fff
  0x151a4acd3000 - 0x151a4acf3fff
  0x151a4acf4000 - 0x151a4acfbfff
  0x151a4acfc000 - 0x151a4acfcfff
  0x151a4acfd000 - 0x151a4acfdfff
  0x151a4acfe000 - 0x151a4acfefff
  0x55768c090000 - 0x55768c180fff
  0x55768c181000 - 0x55768c28afff
  0x55768c28b000 - 0x55768c2eafff
  0x55768c2ec000 - 0x55768c31afff
  0x55768c31b000 - 0x55768c34bfff
  0x55768c34c000 - 0x55768c34ffff
  0x55768e2a1000 - 0x55768e2c1fff
  0x7ffcee386000 - 0x7ffcee3a6fff
  0x7ffcee3e1000 - 0x7ffcee3e4fff
  0x7ffcee3e5000 - 0x7ffcee3e6fff
https://ideone.com/sDzWao
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!