fork download
copy 
  1. (defun process-numeric-list ()
  2.   ;; list 関数を使って動的にリストを生成する
  3.   (let ((data-list (list 150 420 300 250 380)))
  4.     (format t "元のリスト: ~A~%" data-list)
  5.     ;; リストの要素を降順にソートする
  6.     (let ((sorted-list (sort data-list #'>)))
  7.       ;; 1番目の要素（最高値）を抽出して表示
  8.       (format t "1番目の要素: ~A~%" (second sorted-list)))))
  9.  
  10. (process-numeric-list)
Success #stdin #stdout 0.01s 28948KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
元のリスト: (150 420 300 250 380)
1番目の要素: 380
https://ideone.com/NGJGSw
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!