fork download
copy 
  1. (defun process-numeric-list ()
  2.   (let ((data-list '(150 420 300 250 380)))
  3.     (format t "元のリスト: ~A~%" data-list)
  4.  
  5.     (let ((sorted-list (sort (copy-list data-list) #'>)))
  6.       (format t "2番目の要素: ~A~%"
  7.               (second sorted-list)))))
  8.  
  9. (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/40sBOV
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!