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 (copy-list data-list) #'>)))
  8.       ;; 2番目に大きな要素を表示
  9.       (format t "2番目の要素: ~A~%"
  10.               (second sorted-list)))))
  11.  
  12. (process-numeric-list)
Success #stdin #stdout 0.01s 28948KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
元のリスト: (150 420 300 250 380)
2番目の要素: 380
https://ideone.com/vqMdso
language:
Common Lisp (sbcl 1.4.16)
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!