function [ AP, AL ] = graph_adj_list_cube ( )

%*****************************************************************************80
%
%% graph_adj_list_cube() sets up the adjacency list for the cube graph.
%
%  Discussion:
%
%      4-----7
%     /|    /|
%    8-----3 |
%    | |   | |
%    | 5---|-2
%    |/    |/
%    1-----6
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    30 April 2026
%
%  Author:
%
%    John Burkardt
%
%  Output:
%
%    integer AP(node_num+1), AL(edge_num): the adjacency list. 
%
  L = [ ...
    1, 5; ...
    1, 6; ...
    1, 8; ...
    2, 5; ...
    2, 6; ...
    2, 7; ...
    3, 6; ...
    3, 7; ...
    3, 8; ...
    4, 5; ...
    4, 7; ...
    4, 8 ];

  [ AP, AL ] = graph_arc_to_adj_list ( L );

  return
end
