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.     ;; リストの要素を降順（>）にソートする
  7.     (let ((sorted-list (sort data-list #'>)))
  8.  
  9.       ;; 2番目に大きな要素を表示
  10.       (format t "2番目の要素: ~A~%" (second sorted-list)))))
  11.  
  12. (process-numeric-list)
Success #stdin #stdout #stderr 0.01s 9536KB
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
  0x154ad3c00000 - 0x154ad3ee4fff
  0x154ad4015000 - 0x154ad4039fff
  0x154ad403a000 - 0x154ad41acfff
  0x154ad41ad000 - 0x154ad41f5fff
  0x154ad41f6000 - 0x154ad41f8fff
  0x154ad41f9000 - 0x154ad41fbfff
  0x154ad41fc000 - 0x154ad41fffff
  0x154ad4200000 - 0x154ad4202fff
  0x154ad4203000 - 0x154ad4401fff
  0x154ad4402000 - 0x154ad4402fff
  0x154ad4403000 - 0x154ad4403fff
  0x154ad4480000 - 0x154ad448ffff
  0x154ad4490000 - 0x154ad44c3fff
  0x154ad44c4000 - 0x154ad45fafff
  0x154ad45fb000 - 0x154ad45fbfff
  0x154ad45fc000 - 0x154ad45fefff
  0x154ad45ff000 - 0x154ad45fffff
  0x154ad4600000 - 0x154ad4603fff
  0x154ad4604000 - 0x154ad4803fff
  0x154ad4804000 - 0x154ad4804fff
  0x154ad4805000 - 0x154ad4805fff
  0x154ad4846000 - 0x154ad4849fff
  0x154ad484a000 - 0x154ad484afff
  0x154ad484b000 - 0x154ad484cfff
  0x154ad484d000 - 0x154ad484dfff
  0x154ad484e000 - 0x154ad484efff
  0x154ad484f000 - 0x154ad484ffff
  0x154ad4850000 - 0x154ad485dfff
  0x154ad485e000 - 0x154ad486bfff
  0x154ad486c000 - 0x154ad4878fff
  0x154ad4879000 - 0x154ad487cfff
  0x154ad487d000 - 0x154ad487dfff
  0x154ad487e000 - 0x154ad487efff
  0x154ad487f000 - 0x154ad4884fff
  0x154ad4885000 - 0x154ad4886fff
  0x154ad4887000 - 0x154ad4887fff
  0x154ad4888000 - 0x154ad4888fff
  0x154ad4889000 - 0x154ad4889fff
  0x154ad488a000 - 0x154ad48b7fff
  0x154ad48b8000 - 0x154ad48c6fff
  0x154ad48c7000 - 0x154ad496cfff
  0x154ad496d000 - 0x154ad4a03fff
  0x154ad4a04000 - 0x154ad4a04fff
  0x154ad4a05000 - 0x154ad4a05fff
  0x154ad4a06000 - 0x154ad4a19fff
  0x154ad4a1a000 - 0x154ad4a41fff
  0x154ad4a42000 - 0x154ad4a4bfff
  0x154ad4a4c000 - 0x154ad4a4dfff
  0x154ad4a4e000 - 0x154ad4a53fff
  0x154ad4a54000 - 0x154ad4a56fff
  0x154ad4a59000 - 0x154ad4a59fff
  0x154ad4a5a000 - 0x154ad4a5afff
  0x154ad4a5b000 - 0x154ad4a5bfff
  0x154ad4a5c000 - 0x154ad4a5cfff
  0x154ad4a5d000 - 0x154ad4a5dfff
  0x154ad4a5e000 - 0x154ad4a64fff
  0x154ad4a65000 - 0x154ad4a67fff
  0x154ad4a68000 - 0x154ad4a68fff
  0x154ad4a69000 - 0x154ad4a89fff
  0x154ad4a8a000 - 0x154ad4a91fff
  0x154ad4a92000 - 0x154ad4a92fff
  0x154ad4a93000 - 0x154ad4a93fff
  0x154ad4a94000 - 0x154ad4a94fff
  0x5632c65bf000 - 0x5632c66affff
  0x5632c66b0000 - 0x5632c67b9fff
  0x5632c67ba000 - 0x5632c6819fff
  0x5632c681b000 - 0x5632c6849fff
  0x5632c684a000 - 0x5632c687afff
  0x5632c687b000 - 0x5632c687efff
  0x5632c7051000 - 0x5632c7071fff
  0x7ffde6c3a000 - 0x7ffde6c5afff
  0x7ffde6da3000 - 0x7ffde6da6fff
  0x7ffde6da7000 - 0x7ffde6da8fff
https://ideone.com/OBBNXi
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!